Решение нужно в паскале. составьте программу вычисления суммы элементов двумерного массива A (N, N), расположенных под побочной диагональю

Const n=4;

Var x:array [1 ... n, 1 ... n] of integer;

s, i, j:integer;

begin

randomize;

for i:=1 to n do begin

for j:=1 to n do begin

x[i, j] : = random (100) ;

write (x[i, j]:6) ;

end;

writeln;

end;

s:=0;

for i:=1 to n do

for j: = 1 to n do

if i + j < n + 1

then

s : = s + x[i, j];

writeln ('s=', s) ;

readln;

end.