тоже на паскале про цисло

[ex-hack]

дано натуральное число . верно ли что произведение его цыфр меньше 50?
Заране спасибо.

[Chudo4258]

program Project1;

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('Verno')
        else writeln('Neverno');
readln
end.