Дана матрица В(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 jlt;3-i+1 then  k:=k *b[i,j];

   end;

 end;

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

end.