Fonction Suite Fibanacci

Function Suite_Fibonacci (t:tab;i:LongInt):longint;
Var x:longint;
Begin
  x := t[i-1]+t[i-2];
  Suite_Fibanacci := x;
End;