World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/PASCAL/MADTRB21.ZIP/FACTRIAL.SRC

Text File | 1985-06-09 | 133b | 7 lines

FUNCTION FACTORIAL(N: INTEGER) : INTEGER;

BEGIN
  IF N > 1 THEN FACTORIAL := N * FACTORIAL(N-1)
    ELSE FACTORIAL := 1
END;