این تابع اعداد فیبوناچی را محاسبه می کند
Function Fi(I: Integer):Integer;
Var
Sum, OldSum, TmpSum, J:Longint;
begin
Sum :=1;
OldSum :=1;
if I= 0 then
Begin
Result :=0;
End;
if I=1 then
Begin
Result := 1;
End;
if I>1 then
begin
for J := 3 to i do
begin
TmpSum :=Sum;
Sum := Sum+OldSum;
OldSum :=TmpSum ;
end;
Result :=Sum;
end;
end;
