Ребят помогите в паскале набрать. Считать произведение (при этом в программе нужно указать P=1) введенных с клавиатуры чисел до тех пор, пока не будет введено отрицательное число. Составить программу.

Вопрос школьника по предмету Информатика

Ребят помогите в паскале набрать. Считать произведение (при этом в программе нужно указать P=1) введенных с
клавиатуры чисел до тех пор, пока не будет введено отрицательное число.
Составить программу.

Ответ учителя по предмету Информатика

var

a:boolean;

p,new:integer;

begin

 a:=TRUE;

 p:=1;

 while a do

 begin

 readln(new);

 if new >= 0

 then p:= p * new

 else a:=FALSE;

 end;

 writeln(p);

end.