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

program zz1;

var i, j, k: integer;

b: array[1 ... 3,1 ... 3] of integer;

begin

for i:=1 to 3 do begin

for j:=1 to 3 do begin

b[i, j]:=random (10) + 1; / /заполнение матрицы случайными числами и вывод на экран

write (b[i, j]:3);

end;

writeln;

end;

k:=1;

for i:=1 to 3 do begin / / проверка элементов выше побочной диагонали

for j:=1 to 3 do begin

if j<3-i+1 then k:=k * b[i, j];

end;

end;

write (' произведение элементов выше побочной диагонали = ', k); / /вывод ответа

end.