PROGRAM LONGINT_Demo;

{$I LONGINT.PAS }

VAR i, n: INTEGER;
    lx, facc: LONGINT;

BEGIN
  IntToLong(facc, 1);
  Write('Zu welcher Zahl soll die ');
  WriteLn('Fakultaet bestimmt werden ? ');
  ReadLn(n);
  FOR i := 2 TO n DO
  BEGIN
    IntToLong(lx, i);
    LMul(facc, facc, lx);
  END;
  LWrite(facc);
END.