Накопить произведение введённых с клавиатуры чисел до тех пор пока значение произведения не превысят p. вывести полученное произведение на экран.

Var a,p,p1:Integer;
begin Write('Введите число, которое должно превысить произведение чисел (p): ');
ReadLn(p);
p1:=1;
while p1<=p do
begin
Write('Введите число: ');
ReadLn(a);
p1:=p1*a
end;
WriteLn('Произведение введенных чисел: ',p1)
end.