Дана матрица в(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<j then pr:=pr*a[i,j]
      end
   end;
writeln;
writeln('Произведение ',pr)
end.