var i,j:byte;begin for j:=0to 14do for i:=1to min(j*15div 2-1and j,95)+5do 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