Как найти произведение цифр четырех значного числа на языке паскаль?

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

Для нахождения произведения цифр четырехзначного числа на языке Pascal можно воспользоваться следующим кодом:

program MultiplicationOfDigits;
var
number, digit, product: integer;
begin
write('Enter a four-digit number: ');
readln(number);
product := 1;
while number <> 0 do
begin
digit := number mod 10;
product := product * digit;
number := number div 10;
end;
writeln('The product of the digits of the number is: ', product);
readln;
end.

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