program spiral; {$APPTYPE CONSOLE} uses SysUtils; var k,k1,k2,j,i,n:integer; a:array [1..100,1..100] of integer; begin readln (n); k1:=1; k2:=n-1; k:=1; while k<=(n*n) do begin for j:=k1 to k2 do begin a[k1,j]:=k; k:=k+1; end; for i:=k1 to k2 do begin a[i,k2+1]:=k; k:=k+1; end; for j:=k2+1 downto k1+1 do begin a[k2+1,j]:=k; k:=k+1; end; for i:=k2+1 downto k1+1 do begin a[i,k1]:=k; k:=k+1; end; k1:=k1+1; k2:=k2-1; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5,' '); writeln; end; readln { TODO -oUser -cConsole Main : Insert code here } end.