var i,n:word=1;begin repeat n:=n*4-n*2div i;writeln(n);i:=i+1until i>14end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page