var n:word;begin for n:=1to 99do writeln('N=',n,',A=',min(n/2,5)+n/22: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