codevs天梯 递归第一次 水题

题目：

同学们在做题时常遇到这种函数

f(x)=5 (x>=0)

f(x)=f(x+1)+f(x+2)+1 (x<0)

下面就以这个函数为题做一个递归程序吧

代码：

var
  n:longint;


function f(x:longint):longint;
begin
  if x>=0 then
    f:=5
  else
    f:=f(x+1)+f(x+2)+1;
end;


begin
  readln(n);
  writeln(f(n));
end.