Function Factorielle

Function facto (n:Longint): Longint;
Var
  x,i: longint;
Begin
    //max value of n=12
  x := 1;
  For i:=1 To n Do
        begin
        x := x*i;
        end;
  facto := x;
End;