8 lines
173 B
Text
8 lines
173 B
Text
INTEGER FUNCTION FACTORIAL( N ); INTEGER N;
|
|
BEGIN
|
|
INTEGER I, FACT;
|
|
FACT := 1;
|
|
FOR I := 2 STEP 1 UNTIL N DO
|
|
FACT := FACT * I;
|
|
FACTORIAL := FACT;
|
|
END;
|