var a:array[0..10000,0..10000] of longint;
    ii,jj,i,j,q,qq,n,t:longint;
begin
read(n);
i:=n div 2+1; j:=(n div 2)-n+2; t:=0;
for q:=1 to n do
 begin
 ii:=i; jj:=j;
 for qq:=1 to n do
  begin
  inc(t);
  if jj<1 then a[ii,n-(0-jj)]:=t
   else if jj>n then a[ii,0+jj-n]:=t
    else if ii<1 then a[n-(0-ii),jj]:=t
     else if ii>n then a[0+ii-n,jj]:=t
      else a[ii,jj]:=t;
  dec(ii); inc(jj);
  end;
 inc(i); inc(j);
 end;
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j],' ');
 writeln;
 end;
end.

Program bt;
Uses crt;
Var
  s: String;
  i,j,max: Integer;
  d: Array [1..1000] Of Integer;
Begin
  Clrscr;
  read(s);
  For i:= 1 To Length(s)-1 Do
    For j:= i+1 To Length(s) Do
      If s[j]=s[i] Then
        Begin
          d[i] := d[i]+1;
          Delete(s,j,1);
        End;
  Writeln('So ki tu co trong chuoi la : ',Length(s));
  max := d[1];
  For i:=2 To Length(s) Do
    If d[i] > max Then max := d[i];
  For i:= 1 To Length(s) Do
    If d[i]=max Then
      Write('Ki tu ',s[i],' xuat hien nhieu nhat voi ',d[i],' lan xuat hien');
  Readln;
End.