program MultiplyNumbers;
varnum, product: integer;
beginproduct := 1;
writeln('Введите целые числа, заканчивающиеся нулем:');read(num);
while num <> 0 dobeginproduct := product * num;read(num);end;
writeln('Произведение введенных чисел: ', product);end.
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.