{ Prints Fibonacci Number supplied }
program Fib2;

const
  ZERO = 1;
  ONE = 1;

var
  input: word;

function Fib (n: word): NativeUInt;
begin
  case n of
    0: Fib := 0;
    1, 2: Fib := 1;
    else Fib := Fib(n - 2) + Fib(n - 1)
  end;
end;

begin
  write('Which Fibonacci number would you like? ');
  readln(input);

  WriteLn(Fib(input));
end.