В массиве размером 5 на 5 подсчитать сумму положитеных элементов стоящих на главной диагонали и ниже ее

program zz1;

const n = 5;

var i, j, k1, k2: 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) - 5;

write (m[i, j]:3);

end;

writeln;

end;

for i:=1 to n do begin

for j:=1 to n do begin

if j 0 then k1:=k1+m[i, j];

if j=i then if m[i, j] > 0 then k2:=k2+m[i, j];

end;

end;

writeln (' сумма положительных элементов ниже главной диагонали = ', k1); / / вывод ответа

write (' сумма положительных элементов на главной диагонали = ', k2);

end.