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.