home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 06 / longdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-18  |  386 b   |  23 lines
  1. PROGRAM LONGINT_Demo;
  2.  
  3. {$I LONGINT.PAS }
  4.  
  5. VAR i, n: INTEGER;
  6.     lx, facc: LONGINT;
  7.  
  8. BEGIN
  9.   IntToLong(facc, 1);
  10.   Write('Zu welcher Zahl soll die ');
  11.   WriteLn('Fakultaet bestimmt werden ? ');
  12.   ReadLn(n);
  13.   FOR i := 2 TO n DO
  14.   BEGIN
  15.     IntToLong(lx, i);
  16.     LMul(facc, facc, lx);
  17.   END;
  18.   LWrite(facc);
  19. END.  
  20.  
  21.  
  22.  
  23.