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