home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
interpre
/
vclang
/
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.