f[i]=f[i-1]+f[i-2]

递推法
规律楼上都已经给出了

既然要递归, 那么就要考虑一下时间问题了, 优化过的递归程序如下:
program lx;
  var
    k:array[1..100] of longint;
    n:integer;
  function ss(a:integer):longint;
    var
      m,n:longint;
    begin
      if k[a]<>0 then ss:=k[a] else begin
        k[a]:=ss(a-1)+ss(a-2);
        ss:=k[a];
      end;
    end;
  begin
    fillchar(k,sizeof(k),0);
    k[1]:=1;
    k[2]:=2;
    readln(n);
    writeln(ss(n));
  end.
程序未经调试, 自己调试一下.