Дано целое число n (> 0). найти произведение n! =1*(в delphi.7 )

{$APPTYPE CONSOLE}
Var
   F:real;
   N:integer;
Begin
Write('N = ');
ReadLn(N);
F:=1;
For N:= 1 to N do
    F:=F*N;
Write(N,'! = ',F);
ReadLn
End.