home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / teaching / vclang11.zip / FACT.CLN < prev    next >
Text File  |  1990-08-17  |  223b  |  13 lines
  1. program TESTFUNCTIONS;
  2.   var N;
  3.  
  4.   function FACTORIAL (M);
  5.     begin
  6.       if M = 1 then FACTORIAL := 1;
  7.       if M > 1 then FACTORIAL := M * FACTORIAL(M-1)
  8.     end;
  9.  
  10. begin
  11.   read(N);
  12.   write(FACTORIAL(N))
  13. end.