Дана матрица В (5,5). Вычислить произведение элементов, стоящих выше главной

диагонали. Напечатать матрицу В и значение произведения.

написать код программы в паскале.

Var

i, j, pr:integer;

a: array[1 ... 5,1 ... 5] of integer;

begin

randomize;

pr:=1;

write ('Исходный массив:');

for i:=1 to 5 do

begin

writeln;

for j:=1 to 5 do

begin

a[i, j]:=random (4) + 1;

write (a[i, j]:2);

if i
end

end;

writeln;

writeln ('Произведение ', pr)

end.