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