Определить сумму всех элементов массива, расположенных над главной диагональю

const  n=3;  var a:array[1..n, 1..n] of integer;  i,j,s:integer;  begin  s:=0;  writeln('Введите элементы матрицы');  for i:=1 to n do  for j:=1 to n do begin  read(a[i,j]);  if i