Числа Фибоначчи (fп) определяются формулами fo =f1=1, fn= fn-1 + fn-2 при n = 2, 3, ... (программа Паскаль)

uses
  crt;
function Fib(n : byte) : longint;
begin
  If (n=0) or (n=1) then Fib := 1
  else Fib := Fib(n-1) + Fib(n-2);
end;  
var
  n : byte;
begin
  clrscr;
  writeln('f(40) = ',Fib(40));
  readln;
end.