В двумерном массиве 10 х10, содержащем числа в интервале от 50 до 100 найдите сумму элементов стоящих на главной диагонале. Вывести на печать исходную матрице в табличном виде и значения матрицы и полученную сумму

Pascal

Program L;

uses crt;

var i, j, s:integer; a:array[1 ... 10,1 ... 10] of integer;

begins:=0;

writeln ('введите исходный массив') ;

for i:=1 to 10 do

for j:=1 to 10 do

begin

readln (a[i, j]) ; {ввод эл массива, всего их 100 штук}

if i=j then s:=s+a[i, j]; { вычисление суммы}

end;

write ('s=', s) ; {печать суммы}

readln

end.