program MultiplyNumbers;

var
num, product: integer;

begin
product := 1;

writeln('Введите целые числа, заканчивающиеся нулем:');
read(num);

while num <> 0 do
begin
product := product * num;
read(num);
end;

writeln('Произведение введенных чисел: ', product);
end.