var m:array[byte,byte]of word;b,i,j,k,n:word;begin
read(n);j:=n shr 1;repeat
inc(k);m[i,j]:=k;b:=ord(m[(i+2)mod n,(j+1)mod n]=0);i:=(i+b+1)mod n;j:=(j+b)mod n;until
k=n*n;for i:=0to n-1do for j:=1to n do
write(m[i,j-1]:4-1div j,^j:j div n)end.