Создание алгоритма по коду

[Egor2]

Привет.Упущение преподователей и моё.Программу написать могу, а вот с алгоритмом проблема.Если кто захочет мне помочь оповестите , как вам будет удобнее скинуть мне его. спасибо.

uses crt;
var n,i,j,l,k:integer;
a:array[1..20,1..20]of integer;
begin
clrscr;
write('n=');readln(n);
k:=0;
For l:=1 to 2*n-1 do
begin
if l>n then{выше диагонали}
begin
if odd(l) then
for i:=l-n+1 to n do
begin
k:=k+1;
a[i,l-i+1]:=k;
end
else
for i:=n downto l-n+1 do
begin
k:=k+1;
a[i,l-i+1]:=k;
end
end
else
if l<=n then
begin
if odd(l) then
for i:=1 to l do
begin
k:=k+1;
a[i,l-i+1]:=k;
end
else
for i:=l downto 1 do
begin
k:=k+1;
a[i,l-i+1]:=k;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readln
end.

[Mad_Cat]

Держите ))))

[Egor2]

Спасибо Большое.

[VadikV]

Держи. В другом формает