Информатика задачи из 10 класса

Задача 4
PacalABC

const n = 6;
var Mas : array [1..n, 1..n] of integer;
ColOtr, ColPol : integer;
begin
ColPol := 0; ColOtr := 0;
for var i := 1 to n do
for var j := 1 to n do Mas[i, j] := -5 + random(11);
for var i := 1 to n do
begin
for var j := 1 to n do Write (Mas[i, j]:5);
WriteLn;
end;
for var k := 1 to n do
for var m := 1 to n do
begin
if (m > k) and (Mas[k,m] < 0) then ColOtr := ColOtr + 1;
if (m < k) and (Mas[k,m] < 0) then ColPol := ColPol + 1;
end; WriteLn;
WriteLn (' Выше главной диагонали = ', ColOtr);
WriteLn (' Ниже главной диагонали = ', ColPol);
end.