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