hui

var a:array[1..21,1..21] of integer;

   n,m,k,z,x,y:integer;

begin

repeat

write();

readln(n);

until n in [1..10];

m:=2*n+1;

x:=n+1;

y:=n+1;

k:=0;

for z:=1 to m*m do

 begin

 a[x,y]:=z-1;

 case k mod 4 of

 0:begin

   dec(x);

   if m-x=y then inc(k);

   end;

 1:begin

   dec(y);

   if x=y then inc(k);

   end;

 2:begin

   inc(x);

   if m-x+1=y then inc (k);

   end;

 3:begin

   inc(y);

   if y=x then inc(k);

   end;

 end;

 end;

for x:=1 to m do

 begin

   for y:=1 to m do

   write(a[x,y]:3);

   writeln;

 end;

end.