помогите написать программу в паскале.
Задано натуральное число 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.