Накопить произведение введённых с клавиатуры чисел до тех пор пока значение произведения не превысят 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.