Var S:Word=22;Begin repeat write(S);S:=S*7div 3;until S>1e8;End.