1. Дана целочисленная матрица А(N,N). Определите, будет ли сумма всех элементов, расположенных выше главной диагонали

Pascal ABCVar ma:array of array of integer; i,j,n,r:integer;begin readln(n); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],n+1); writeln(\'Matrix:\'); for i:=1 to n do begin writeln; for j:=1 to n do begin ma[i,j]:=random(n); write(ma[i,j]:4); end; end; for i:=1 to n do for j:=i+1 to n do r:=r+ma[i,j]; r:=r div 3; writeln; if odd(r) then writeln(\'Да\') else writeln(\'Нет\');end.