Дана матрица А (3,3). В строках с отрицательным элементом на главной диагонали…

Var a,b,i,min,j,sum: longint; m: array[1… 3,1… 3] of longint; beginfor i: =1 to 3 dofor j: =1 to 3 doread (m[i,j]); for i: =1 to 3 doif m[i,i]< 0 thenbeginfor j: =1 to 3 dosum: =sum+m[i,j]; writeln (i,',sum); sum: =0; end; for i: =1 to 3 dobeginwriteln; for j: =1 to 3 dowrite (m[i,j],'); end; end.