помогите пожалуйста.
турбо паскаль
ничего не понимаю

В задании сказано "сумму элементов СТРОК МАТРИЦЫ, у который есть отрицательные на главной диагонали"

Брикъ

подпрограмму к этой программе как можно сделать?

VarA:array[1..100,1..100] of integer;i,j,N:integer;S:longint;BeginWrite('N = ');Read(N);S:=0;For i:= 1 to N do    For j:= 1 to N do       Read(A[i,j]);For i:= 1 to N do    if A[i,i]<0 then        For j:= 1 to N do            S:=S+A[i,j];WriteLn('Summa = ',S);End.