Вывести на экран номера строк, в которых произведение элементов попадает в интервал [А ; В], а также соответствующие значения произведения.

const nmax=15;
var x:array[1..nmax,1..nmax] of real;
    m,n,i,j,k:byte;
    a,b,p:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
begin
  for j:=1 to n do
   begin
    x[i,j]:=9*random;
    write(x[i,j]:5:2);
   end;
  writeln;
end;
writeln;
repeat
writeln('Введите интервал чисел a<b');
readln(a,b);
until a<b;
k:=0;
for i:=1 to m do
begin
  p:=1;
  for j:=1 to n do
  p:=p*x[i,j];
  if(p>=a)and(p<=b) then
   begin
    k:=1;
    writeln('Строка ',i,' произведение=',p:0:2)
   end
end;
if k=0 then write('Строк с произведением от ',a:0:2,' до ',b:0:2,' нет');
readln
end.