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

Uses
 CRT;
Var
 n : longint;
 pr:real;
Begin
Readln(n);
pr:=1;
While n<>0 Do
Begin
 pr:=pr*(n mod 10);
 n:=n div 10;
End;
Writeln('pr:=',pr);
readkey
End.