var i,j:comp=-4;begin for j:=0to 14do for i:=1to min(i-1and j*3,91)+9do if j=i div 3-i div 5then write(i)else write(^j:1div i,"":1+ord(i>9))end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page