---.pas.135: begin
006A0E68 55               push ebp
006A0E69 8BEC             mov ebp,esp
006A0E6B 83C4F8           add esp,-$08
006A0E6E 33C0             xor eax,eax
006A0E70 8945FC           mov [ebp-$04],eax
006A0E73 8B450C           mov eax,[ebp+$0c]
006A0E76 33D2             xor edx,edx
006A0E78 55               push ebp
006A0E79 68030F6A00       push $006a0f03
006A0E7E 64FF32           push dword ptr fs:[edx]
006A0E81 648922           mov fs:[edx],esp
---.pas.136: if TYPE(x) <> TT_STRING then
006A0E84 0FB65008         movzx edx,[eax+$08]
006A0E88 80FA06           cmp dl,$06
006A0E8B 740F             jz $006a0e9c
---.pas.137: x := ConvertType(x, TT_STRING);
006A0E8D 6A06             push $06
006A0E8F 50               push eax
006A0E90 A1D4C81F01       mov eax,[$011fc8d4]
006A0E95 8B00             mov eax,[eax]
006A0E97 FFD0             call eax
006A0E99 83C408           add esp,$08
---.pas.139: result := GetStrXXX(x);
006A0E9C 33D2             xor edx,edx
006A0E9E 55               push ebp
006A0E9F 68E60E6A00       push $006a0ee6
006A0EA4 64FF32           push dword ptr fs:[edx]
006A0EA7 648922           mov fs:[edx],esp
006A0EAA 8945F8           mov [ebp-$08],eax
006A0EAD 8D45FC           lea eax,[ebp-$04]
006A0EB0 8B55F8           mov edx,[ebp-$08]
006A0EB3 8B12             mov edx,[edx]
006A0EB5 83C214           add edx,$14
006A0EB8 83EA04           sub edx,$04
006A0EBB B9E9FD0000       mov ecx,$0000fde9
006A0EC0 E807B1D6FF       call @LStrFromPChar
006A0EC5 8B4508           mov eax,[ebp+$08]
006A0EC8 8B55FC           mov edx,[ebp-$04]
006A0ECB E828AED6FF       call @LStrAsg
006A0ED0 33C0             xor eax,eax
006A0ED2 5A               pop edx
006A0ED3 59               pop ecx
006A0ED4 59               pop ecx
006A0ED5 648910           mov fs:[eax],edx
006A0ED8 68ED0E6A00       push $006a0eed
006A0EDD 8D45FC           lea eax,[ebp-$04]
006A0EE0 E8B3A9D6FF       call @LStrClr
006A0EE5 C3               ret 
006A0EE6 E9659ED6FF       jmp @HandleFinally
006A0EEB EBF0             jmp $006a0edd
---.pas.141: end;
006A0EED 33C0             xor eax,eax
006A0EEF 5A               pop edx
006A0EF0 59               pop ecx
006A0EF1 59               pop ecx
006A0EF2 648910           mov fs:[eax],edx
006A0EF5 680A0F6A00       push $006a0f0a
006A0EFA 8D45FC           lea eax,[ebp-$04]
006A0EFD E896A9D6FF       call @LStrClr
006A0F02 C3               ret 
006A0F03 E9489ED6FF       jmp @HandleFinally
006A0F08 EBF0             jmp $006a0efa
006A0F0A 59               pop ecx
006A0F0B 59               pop ecx
006A0F0C 5D               pop ebp
006A0F0D C3               ret 
006A0F0E 8BC0             mov eax,eax

---.pas.135: begin
006A0E68 55               push ebp
006A0E69 8BEC             mov ebp,esp
006A0E6B 53               push ebx
006A0E6C 8B5D0C           mov ebx,[ebp+$0c]
---.pas.136: if TYPE(x) <> TT_STRING then
006A0E6F 0FB64308         movzx eax,[ebx+$08]
006A0E73 3C06             cmp al,$06
006A0E75 7411             jz $006a0e88
---.pas.137: x := ConvertType(x, TT_STRING);
006A0E77 6A06             push $06
006A0E79 53               push ebx
006A0E7A A1D4C81F01       mov eax,[$011fc8d4]
006A0E7F 8B00             mov eax,[eax]
006A0E81 FFD0             call eax
006A0E83 83C408           add esp,$08
006A0E86 8BD8             mov ebx,eax
---.pas.139: result := PAnsiChar(NativeInt(@x.val) - 4);
006A0E88 8B4508           mov eax,[ebp+$08]
006A0E8B 8B13             mov edx,[ebx]
006A0E8D 83C214           add edx,$14
006A0E90 83EA04           sub edx,$04
006A0E93 B9E9FD0000       mov ecx,$0000fde9
006A0E98 E82FB1D6FF       call @LStrFromPChar
---.pas.140: end;
006A0E9D 5B               pop ebx
006A0E9E 5D               pop ebp
006A0E9F C3               ret 

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;

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

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;

var
  n: Integer;

begin
  try
    while True do
    begin
      Readln(n);
      Writeln('Result Fibonacci: ', Fibonacci(n));
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

function Fibonacci(n: Integer): Cardinal;
var
  i: Integer;
  m1, m2: Cardinal;
begin
  m1 := 0;
  m2 := 1;
  Result := 0;
  for i := 1 to n do begin
    Inc(Result, m2);
    m2 := m1;
    m1 := Result;
  end;
end;