Помогите пожалуйста
Составить программу для последовательного произведения вводимых с клавиатуры целых чисел ,предусмотреть выход из произведения при вводе нуля.
язык Паскаль

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

Помогите пожалуйста
Составить программу для последовательного произведения вводимых с клавиатуры целых чисел ,предусмотреть выход из произведения при вводе нуля.
язык Паскаль

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

Program n1;

var a: integer;

p: real;

begin

readln(a);

p:=1;

while a<>0 do

begin

p:=p*a;

readln(a);

end;

writeln(p);

end.