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

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