read*,n;do1 i=0,n-1;1 print'(999i0)',(0**(i*j*(n-1-i)),j=0,n-2),1;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page