var n:word=22;begin repeat write(n);n:=n*7div 3until n>1e8end.