Найти произведение цифр заданного целого числа. Решить в паскале. Пишу вот такую команду но пишет ошибку.   P := 1; {здесь будет произведение}
while n > 0 do begin
P := P * (n mod 10);
n := n div 10;
end;