6 lines
114 B
Text
6 lines
114 B
Text
|
function fib(N : Integer) : Integer;
|
||
|
|
begin
|
||
|
|
if N < 2 then Result := 1
|
||
|
|
else Result := fib(N-2) + fib(N-1);
|
||
|
|
End;
|