home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / vclang.arj / FACT.CLN < prev    next >
Encoding:
Text File  |  1990-08-17  |  223 b   |  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.