Написать программу для Pascal. Найти произведение цифр числа введенного с клавиатуры.

Question

Написать программу для Pascal.
Найти произведение цифр числа введенного с клавиатуры.

Answer 1

var n, p: integer;
begin
  read(n);
  p := 1;
  repeat
    p := n mod 10 * p;
    n := n div 10;
  until n = 0;
  write(p)
end.