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.