В данной действительной квадратной матрице порядка N*N найти сумму положительных элементов под побочной диагональю

если что, вот текст паскаль. Масив я не выводил program pr1; uses crt var i,n,s,j: integer; A:array [1..99,1..99] of integer; begin clr scr; writeln('ввести мерность массива'); readln(n); s:=0; for i:=1 to n do begin for j:=1 to n do begin writeln('введите элемент массива'); readln(a[i]); end; end; for i:=1 to n do begin for j:=1 to n do begin if  i+j=n+2 and i+j=n+3 and i+j=n+n then begin s:=s+a[i]; end; end; end; writeln(s, '-сумма элементов под побочной диагональю'); end.