var
 a:array[1..100,1..100]of integer;
 i,n,m,k,s:integer;
 begin
  readln(n);
  s:=0;
  while k<>n*n do
    begin
    s:=s+1;
     for i:= s to n-s+1 do
      begin
      k:=k+1;
       a[s,i]:=k;
       end;
     for i:= s+1 to n-s+1 do
      begin
      k:=k+1;
       a[i,n-s+1]:=k;
       end;
      for i:=n-s downto s do
      begin
     k:=k+1;
       a[n-s+1,i]:=k;
        end;
       for i:= n-s downto s+1 do
        begin
        k:=k+1;
         a[i,s]:=k;
         end;
         end;
         for i:=1 to n do
          begin
          for m:=1 to n do
          begin
          write(a[i,m]:5);
          end;
          writeln;
          end;
          end.