Составить и отладить программу обработки матрицы размерности n*n. Выполнить программу для n=4. Подсчитать сумму элементов матрицы стоящих над главной диагональю в Pascal

Program Podschet;

var i, j, ans: integer; a: array [1 ... 100,1 ... 100] of integer;

begin writeln ('Введите размерность матрицы') ; readln (n) ; writeln ('Введите матрицу ', n, 'х', n) ; for i : = 1 to n do for j : = 1 to n do read (a[i, j]) ;

for i : = 1 to n do for j : = 1 to n do if (j = i + 1) then ans : = ans + a[i, j];

writeln ('Cумма элементов над главной диагональю = 'ans) ; end.