9 lines
142 B
Text
9 lines
142 B
Text
|
PROCEDURE Fib(n: INTEGER): INTEGER =
|
||
|
|
BEGIN
|
||
|
|
IF n < 2 THEN
|
||
|
|
RETURN n;
|
||
|
|
ELSE
|
||
|
|
RETURN Fib(n-1) + Fib(n-2);
|
||
|
|
END;
|
||
|
|
END Fib;
|