0 0 0 8 9 0 0 0
0 0 6 7 11 10 0 0
0 4 5 13 12 26 27 0
2 3 15 14 24 25 29 28
1 17 16 22 23 31 30 40
0 18 20 21 33 32 39 0
0 0 19 35 34 38 0 0
0 0 0 36 37 0 0 0
Нажмите для просмотра прикрепленного файла
0 0 0 8 9 0 0 0
0 0 6 7 11 10 0 0
0 4 5 13 12 26 27 0
2 3 15 14 24 25 29 28
1 17 16 22 23 31 30 40
0 18 20 21 33 32 39 0
0 0 19 35 34 38 0 0
0 0 0 36 37 0 0 0
// код удален, см. ниже исправленный вариант
{ a stairway to heaven, leading down
by Lapp, forum.pascal.net.ru (forum.pascalnet.ru)
for Yulyasha }
const
n= 14; // even numbers only!
var
a: array[1..n,1..n]of integer;
b,i,j,di,dj,z,count: integer;
procedure Show;
var
i,j: integer;
begin
for i:=1 to n do begin
for j:=1 to n do write(a[i,j]:3);
writeln
end;
end;
begin
i:= n div 2+1;
j:= 1;
di:= 1;
dj:= 0;
z:= 1;
count:= 1;
repeat
// writeln(i:10,j:10,count:10); show;
a[i,j]:= count;
Inc(count);
if (j-i)*z=n div 2 then begin
i:= i+1;
j:= j+1;
z:= -z;
b:= di;
di:= -dj;
dj:= -b
end
else begin
i:= i-di;
j:= j+dj;
di:= z-di;
dj:= z-dj
end
until (i>n) or (j>n);
// filling in the last row (straight)
i:= i+dj;
j:= j-di;
repeat
i:= i-di-dj;
j:= j+di+dj;
a[i,j]:= count;
Inc(count)
until count>n*n div 2+n;
Show;
readln
end.