program task4; var nums:array[1..20, 1..20] of integer; num, i,o, n, x, y: integer; begin x:=1; y:=1; n:=1; write('vvedite chislo: '); read(num); for i:=1 to num div 2 do begin for x:=i to num-(i-1) do begin nums[x, y]:=n; n:=n+1; end; for y:=i to num-(i-1) do begin nums[x, y]:=n; n:=n+1; end; for x:=i to num-(i-1) do begin nums[num+1-x, y]:=n; x:=num+1-x; n:=n+1; end; for y:=i to num-(i-1) do begin nums[x, num+1-y]:=n; y:=num+1-y; n:=n+1; end; end; readln; readln; end.