a:=22 0to:18 do:[:x|a print. a:=(a*7.0/3)floor]