Отыскать творение цифр данного целого числа. Решить в паскале. Пишу вот

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