program Fibonacci;

var
  N: integer;
  fibo: int64;
  a, b, temp: int64;

begin
  // Đọc dữ liệu từ tệp Fibo.inp
  assign(input, 'Fibo.inp');
  reset(input);
  read(N);
  close(input);

  // Khởi tạo các giá trị ban đầu
  a := 0;
  b := 1;

  // Tính số Fibonacci thứ N
  if N = 0 then
    fibo := a
  else if N = 1 then
    fibo := b
  else
  begin
    for N := 2 to N do
    begin
      temp := a + b;
      a := b;
      b := temp;
    end;
    fibo := b;
  end;

  // Ghi kết quả vào tệp Fibo.out
  assign(output, 'Fibo.out');
  rewrite(output);
  write(fibo);
  close(output);
end.

uses crt;
function add(a,b: string): string;
var m, carry, i, temp: integer;
    res: string;
begin
    if length(a) > length(b) then m := length(a) else m := length(b);
    while (length(a) < m) do a := '0' + a;
    while (length(b) < m) do b := '0' + b;
    carry := 0;
    res := '';
    for i := m downto 1 do
    begin
        temp := (ord(a[i]) - 48) + (ord(b[i]) - 48) + carry;
        if temp <= 9 then begin
            res := char(temp + 48) + res;
            carry := 0;
        end else begin
            res := char((temp mod 10) + 48) + res;
            carry := 1;
        end;
    end;
    if carry = 1 then res := char(49) + res;
    exit(res);
end;
var n, i: integer;
    f1, f2, temp: string;
begin
    assign(input, 'Fibo.inp'); reset(input);
    assign(output, 'Fibo.out'); rewrite(output);
    readln(n);
    if (n = 1) or (n = 2) then write(1)
    else begin
        f1 := '1';
        f2 := '1';
        for i := 3 to n do
        begin
            temp := f2;
            f2 := add(f1, f2);
            f1 := temp;
        end;
        writeln(f2);
    end;
end.