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

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.