Помогитe составить программу на 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)