program MultiplyDigits;
var
num, digit, product: integer;
begin
writeln${}^{\prime }Введитечисло{:}^{\prime }$;
readln$num$;
product := 1;
while num <> 0 do
begin
digit := num mod 10;
product := product * digit;
num := num div 10;
end;
writeln${}^{\prime }Произведениецифрчисла{:}^{\prime },product$;
end.

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