Magic square by *yuko*

var i,j,n:comp;begin read(n);for i:=0to n-1do for j:=-n to-1do write(((i-j*2-1)mod n)*n+(i-j+n div 2)mod n+1:4+j div n,^j:1div j)end.

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

download

return to the top page