Матрицы. Pascal ABC.

[VladimirAvakov]

Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤15. Вычислить сумму элементов главной диагонали матрицы.

Помогите. Заранее спасибо.

[kventin_zhuk]

sum := 0;

for i := 1 to N do 
begin
  sum :=  sum + mass[i][i];
end;