Program spiral matritsa; var i,j,n,l,r : integer

Program spiral_matritsa;

var i,j,n,l,r : integer;

a: array [1..50,1..50] of integer;

begin write('n='); readln(n);

repeat inc(r);

for i:=r to n-r+1 do begin inc(l); a[i,r]:=l; end;

for i:=r+1 to n-r+1 do begin inc(l); a[n-r+1,i]:=l end;

for i:=n-r downto r do begin inc(l);a[i,n-r+1]:=l end;

for i:=n-r downto r+1 do begin inc(l); a[r,i]:=l end;

until l=n*n;

for j:=1 to n do

for i:=1 to n do

begin write(a[i,j]:4); if i=n then writeln; end;

end.