Требуеться помощь

[Senya]

Сталкнулся с такой задачкой...

На верхнюю левую клетку шахматной доски положена монета достоинством в 1 копейку. На каждую следующую( доска обходиться слева на право и сверху вниз) положено монет на сумму на 2 копейки большую, чем на предыдущюю, найти сумму монет лежачих ниже побочной диоганали.

[Sazary]

uses crt;
const n=8;
var
doska : array[1..n,1..n] of integer;
i,j,k,sum : integer;
begin
clrscr;
k := 1;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  doska[i,j] := k;
  write(doska[i,j]:5);
  inc(k,2);
  end;
 writeln;
 end;
writeln('---------');
{---}
sum := 0;
for i:=1 to n do
 for j:=n-i+2 to n do
  sum := sum + doska[i,j];

writeln('Summa= ',sum,' kopeek');

readln;
end.

[Senya]

Спасибо огромное!!!