Задан двухмерный массив целых чисел А размером M на N. Найти сумму элементов, расположенных НИЖЕ главной диагонали.

program summ; uses crt; const M=4;       N=4; type     mas=array[1..M,1..N] of integer; var a:mas; i,j:integer;     s: integer; begin      for i:=1 to m do           for j:=1 to n do a[i,j]:=random(10);           ClrScr; writeln('Исходная матрица:');      for i:=1 to m do begin            for j:=1 to n do write(a[i,j]:5); writeln; end; s:=0;      for i:=1 to n do           for j:=1 to n do if (i<n-j+1) then                  s:=s+a[i,j]; writeln('Сумма элементов расположенных выше побочной диагонали=',s); repeat until KeyPressed; end.