var 
 bflush : integer;
begin
  while true do
  begin
	if s.lookahead = 0 then 
	begin 
		fill_window(s);
		if s.lookahead = 0 then 
		begin
			if flush = Z_NO_FLUSH then
			   exit(need_more);
			break;
		end;
	end;
	
	s.match_length := 0;
	Tracevv((stderr,"%c", s.window[s.strstart]));
	_tr_tally_lit(s, s.window[s.strstart], bflush);
	dec(s.lookahead);
    inc(s.strstart);
	
	if bflush then
		FLUSH_BLOCK(s, 0);
  end;

  s.insert := 0;
  if flush = Z_FINISH then 
  begin
	FLUSH_BLOCK(s, 1);
	exit(finish_done);
  end;
  
  if s.last_lit then 
	FLUSH_BLOCK(s, 0);
  Result := block_done;
end;

int Fibonacci(int n) {
	unsigned long Result = 1;
	unsigned long cash = 0;
	unsigned long cash2;

	if(n < 1)
		return 0;

	for(int i = 1; i < n; i++) {
		cash2 = Result;
		Result += cash;
		cash = cash2;
	}
	return Result;
}

function Fibonacci(n: Integer): Cardinal;
var
  cash, cash2: Cardinal;
  i: Integer;
begin
  Result := 1;
  cash := 0;

  if n < 1 then
    exit(0);

  i := 1;
  while i < n do
  begin
    cash2 := Result;
    inc(Result, cash);
    cash := cash2;
    inc(i);
  end;
end;