function jieti(k:integer):longint;
  begin
    case k of
     1:jieti:=1;
     2:jieti:=2
     else jieti:=jieti(k-1)+jieti(k-2);
  end;
递归的中间过程就是这样了````