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

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.