---

var
  a: array[1..50, 1..50] of integer;
  i, j, m, n: integer;
  proizvedenie: longint;
begin
  Write('Сколько строк? '); ReadLn(m);
  Write('Сколько столбцов? '); ReadLn(n);

  for i := 1 to m do
    for j := 1 to n do
    begin
      write('a[', i, ',', j, ']='); 
      readln(a[i, j]);
    end;

  WriteLn('Произведение элементов в каждой строке:');
  
  for i := 1 to m do
  begin
    proizvedenie := 1;
    
    for j := 1 to n do
    begin
      proizvedenie := proizvedenie * a[i, j];
    end;
    
    WriteLn('Строка ', i, ': ', proizvedenie);
  end;
end.