Составить программу на free pascal. дано натуральное число. верно ли, что произведение его цифр не больше 50

Если число не слишком большое, то:
var n,p:integer;
begin
write('n = ');
readln(n);
p:=1;
while n>0 do
 begin
 p:=p*(n mod 10);
 n:=n div 10;
 end;
if p<=50
 then writeln('Произведение цифр числа = ',p,' (<= 50)')
 else writeln('Произведение цифр числа = ',p,' (> 50)');
end.

Пример:
n = 456
Произведение цифр числа = 120 (> 50)