Дано натуральное число. Найти произведение цифр числа — Pascal(Паскаль)

uses crt;
var N,P:longint;
    cf:byte;
begin
clrscr;
write('N=');readln(N);
P:=1;
while N>0 do
   begin
     cf:=N mod 10;
     P:=P*cf;
     N:=N div 10;
   end;
writeln('Proizvedenie cifr = ',P);
readln
end.