Дано число n. Создайте массив A[2*n+1][2*n+1] и заполните его по спирали, начиная с числа 0 в центральной клетке A[n+1][n+1]. Спираль выходит вверх, далее закручивается против часовой стрелки. Входные данные Программа получает на вход одно число n. Выходные данные Программа должна вывести полученный массив, отводя на вывод каждого числа ровно 3 символа. Примеры входные данные 2 выходные данные 12 11 10 9 24 13 2 1 8 23 14 3 0 7 22 15 4 5 6 21 16 17 18 19 20

var A:array[1 ... 100,1 ... 100] of Integer;

x, k, j, i, N:integer;

procedure up (i, o:integer);

begin

for o:=1 to i do

begin

x:=x+1;

k:=k-1;

A[k, j]:=x;

end;

end;

procedure left (i, o:integer);

begin

for o:=1 to i do

begin

x:=x+1;

j:=j-1;

A[k, j]:=x;

end;

end;

procedure down (i, o:integer);

begin

for o:=1 to i do

begin

x:=x+1;

k:=k+1;

A[k, j]:=x;

end;

end;

procedure right (i, o:integer);

begin

for o:=1 to i do

begin

x:=x+1;

j:=j+1;

A[k, j]:=x;

end;

end;

begin

Readln (N);

k:=n+1;

j:=n+1;

A[n+1, n+1]:=0;

For i:=1 to 2*n do

If i mod 2=1 then

begin

up (i, i);

left (i, i);

end

else

begin

down (i, i);

right (i, i);

If i=2*n then

up (i, i);

end;

For i:=1 to 2*n+1 do

begin

For j:=1 to 2*n+1 do

Write (A[i, j],' ');

Writeln;

end;

end.