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

Question

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

Answer 1

Var x,y: word;
begin  writeln('Введите число'); 
readln (x); 
y:=1;
while y<>0 do 
  begin 
  x:=x*y; 
  writeln('Произведение равно =',(x)); 
  writeln('Введите число');
  readln(y)
  end;  
end.