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