Дано целое число N (>0). Найти произведение N!=1*2...N(В Delphi.7 пожалуйста)

Question

Дано целое число N (>0). Найти произведение N!=1*2...N(В Delphi.7 пожалуйста)

Answer 1

{$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.