Вариант 03 задание 2

Вычислить произведение элементов матрицы D(20,20), без учета элементов побочной диагонали.

//Вот тут начало программы.

program Prog2_Matrix;

{$APPTYPE CONSOLE}
Const n=20;
Var H:Array [1..n,1..n] of integer;
i,j:integer;
proizv:Real;
begin
writeln (' Source Matrix...');
for i:=1 to n do {Создание исходной матрицы}
begin
for j:=1 to n do
begin
H[i,j]:=random(5)+1;
Write (H[i,j],' ');
end;
WriteLn;
end;
Writeln;
proizv:=1;

for i:=1 to n do
begin
for j:=1 to n do
begin
if (j<>(n-i+1)) then
proizv:=proizv*H[i,j];
end;
end;
Write(proizv);
Writeln;
writeln ('Press ENTER for EXIT');
readln;
end

//Вот тут конец программы