Дана произвольная квадратная матрица (вводится с клавиатуры), посчитать сумму элементов находящихся на главной диагонали.

нужна программа написанная на паскале!

Const n=4;

var

a:array[1 ... n, 1 ... n] of integer;

i, j, s:integer;

begin

for i:=1 to n do

for j:=1 to n do readln (a[i, j]) ;

for i:=1 to n do

begin

for j:=1 to n do write (a[i, j]:3) ;

writeln;

end;

s:=0;

for i:=1 to n do s:=s+a[i, i];

writeln ('s = ', s) ;

end.

Пример:

5

4

9

8

7

6

3

2

5

1

7

8

9

6

2

7

5 4 9 8

7 6 3 2

5 1 7 8

9 6 2 7

s = 25