Program Fibonacci;

Var
    n : Integer;

Function Fib (n1 : Integer) : Integer;

Begin
    If n1 > 2 Then
        Fib := Fib(n1 - 1) + Fib (n1 - 2)
    Else
        Fib := 1;
End;

Begin
    Write ('Escreva a posicao a ser encontrada na serie fibonacci: ');
    ReadLn (n);
    WriteLn ('Numero de Fibonacci: ', Fib(n));
End.