Var S:Integer=22;Begin repeat write(S);S:=S*7 div 3;until S>1e8;End.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page