14 lines
198 B
Text
14 lines
198 B
Text
function fib(n: integer): integer;
|
|
var
|
|
f0, f1, f2, k: integer;
|
|
begin
|
|
f0 := 0;
|
|
f1 := 1;
|
|
for k := 2 to n do
|
|
begin
|
|
f2:= f0 + f1;
|
|
f0 := f1;
|
|
f1 := f2;
|
|
end;
|
|
fib := f2;
|
|
end;
|