6 lines
109 B
Text
6 lines
109 B
Text
PROC fact(x)
|
|
DEF r, y
|
|
IF x < 2 THEN RETURN 1
|
|
r := 1; y := x;
|
|
FOR x := 2 TO y DO r := r * x
|
|
ENDPROC r
|