Пожалуйста посчитайте написать программу в паскале.Задано натуральное число n. Вычислить произведение цифр заданного числа.

var
  n, i, p: integer;
 
begin
  p := 1;
  read(n);
  while n > 0 do
  begin
    p := p * (n mod 10);
    n := n div 10;
  end;
  write(p);
end.