program fibo;
uses SysUtils;

function fib(N : integer) : longint;
begin    
    if N < 2 then fib := 1
    else fib := fib(N-2) + fib(N-1);
End;

var 
    n : integer;
    f : longint;

begin
    n := 30;
    f := fib(n);
    writeLn('Fib(', n, ')=', IntToStr(f));

end.