home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / FUNCPRO.ZIP / FACTRIAL.SRC < prev    next >
Encoding:
Text File  |  1985-06-09  |  133 b   |  7 lines
  1. FUNCTION FACTORIAL(N: INTEGER) : INTEGER;
  2.  
  3. BEGIN
  4.   IF N > 1 THEN FACTORIAL := N * FACTORIAL(N-1)
  5.     ELSE FACTORIAL := 1
  6. END;
  7.