program Fibonacci (input, output);

var

Fibonaccis : integer;
i : integer;


  function FibonacciRek (inZahl : Integer): Integer;
  { berechnet die Fibonacci Zahl von inZahl >= 0 }
  begin
    if inZahl < 2 then
      FibonacciRek := inZahl
    else
      FibonacciRek := FibonacciRek (inZahl -1) + FibonacciRek (inzahl - 2);
   end;





begin
  writeln ('Geben Sie eine Zahl ein, von dieser wird die Fibonacci Zahl berechnet: ');
  read (Fibonaccis);
  writeln ('Die Fibonacci Zahl der Zahl: ', Fibonaccis, ' ist: ', FibonacciRek(Fibonaccis));

end.