Вычислить суммы элементов главной диагонали квадратной матрицы

program zz1;const n = 3; // задаем размерность матрицыvar i, j, k: integer;m: array[1..n, 1..n] of integer;begin for i:=1 to n do begin for j:=1 to n do begin m[i, j]:=random(10); // заполнение матрицы случайными числами и вывод ее на экран write(m[i, j]:3); end; writeln; end; for i:=1 to n do begin // проверка элементов находящихся на главной диагонали for j:=1 to n do begin if j=i then k:=k+m[i,j]; end; end; write(\' сумма элементов на главной диагонали = \',k); // вывод ответаend.