Вычисление рекуррентных соотношений)

Program N1;
Var n,i: integer;
Function Fib(n:integer):integer;
Var i,v,w,r: integer;
   begin
     v:=1;w:=0;{начальные значения последовательности}
      For i:=2 To n-1 Do
      Begin
      r:=v+w;
        w:=v;
        v:=r;
        End;
        Fib:=v;
     End; {Fib}
     Begin
     Write  ('n= ');readln  (n);
     {вычисление n-ого члена последовательности Фибонначи}
      Writeln ('f(',n,') =', fib (n);
      Writelni('Последовательность Фибоначчи:');
      For i:=0   To n Do     Write   (tib  (i),'');
       Writeln
       End.

Program N1;
uses crt;
Function Fib(n:integer):integer;
Var i,v,w,r: integer;
begin
v:=1;w:=0;
For i:=2 To n-1 Do
 Begin
  r:=v+w;
  w:=v;
  v:=r;
 End;
Fib:=v;
End; {Fib}
Begin
write('f(13)-3f(12)+3f(11)-f(10)=',Fib(13)-3*Fib(12)+3*Fib(11)+Fib(10));
End.