function fib(s: ansistring): ansistring;
var f, f1, f2: TLongNumber;
    i, n: integer;
begin
	n := StrToInt(str);
  f1 := 0;
  f2 := 1;
  i := 1;
  while i <= n do begin
    f := f1 + f2;
    f1 := f2;
    f2 := f;
    i += 1;
  end;
  result := ToString(f, 10);
end;