Составить программу на языке паскаль АВС, которая запрашивает 4-е число и находит произведение цифры этого числа

Предыдущий
вопрос Следующий
вопрос

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

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