var n:word;begin for n:=1to 99do writeln('N=',n,',A=',min(n/22+5,n/2):1:0)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page