//求斐波拉契数列,第0项为数列首项.计算第92项时会溢出function Fibonacci(Index: Integer): Int64;vari: Integer;n1, n2, n3: Int64;beginn1 := 1; //各变量初始化n2 := 1;Result := 1;for i := 2 to I...