Рекурентное соотношение

[Anny_Apple]

Помогите пожалуйста....Вычислить n=й член последовательности, заданной рекурентным соотношением Xn=Xn-1+Xn-2.... Если X1=0, X2=1, X3=2...

[GetMax]

Var
  N:Byte;
Function RecFuc(N:Byte):Byte;
Begin
  If N = 1 then RecFuc:=0
  Else
  If N = 2 then RecFuc:=1
  Else
  RecFuc:=RecFuc(N-1)+RecFuc(N-2)
End;
Begin
  Readln(n);
  Writeln(RecFuc(n));
  Readln;
End.

[Anny_Apple]

Спасибо за помощь)