Циклические алгоритмы с использованием рекурсии

var A, B, C, alpha, beta, gamma : Integer;
 
function Xn(n : Integer) : BigInteger;
begin
  var m : array of BigInteger;
  SetLength(m, n);
  m[0] := alpha; m[1] := beta; m[2] := gamma;
  for var i := 3 to n-1 do
    m[i] := A*abs(m[i-3]*m[i-3]*m[i-3]) + B*m[i-2]*m[i-2] + C*m[i-1];
  Result := m[n-1];
end;
 
function Xi(i : Integer) : Biginteger;
begin
  case i of
    1 : Result := alpha;
    2 : Result := beta;
    3 : Result := gamma;
  else
    var X3 := Xi(i - 3);
    var X2 := Xi(i - 2);
    Result := A*abs(X3*X3*X3) + B*X2*X2 + C*Xi(i - 1);
  end;
end;
 
begin
  (A, B, C, alpha, beta, gamma) := (-1, 2, -2, 2, 3, 4);
  WriteLn('Программа работатет долго! Очень долго! Она не виснет! Она работает...');
  WriteLn('С помощью массива: X16 = ', Xn(16));
  WriteLn('Рекурсия:          X16 = ', Xi(16));
  WriteLn('С помощью массива: X77 = ', Xn(77));
  WriteLn('Рекурсия:          X77 = ', Xi(77));
  WriteLn('The END.');
end.

    m[i] := A*abs(BigInteger.pow(m[i-3], 3)) + B*BigInteger.Pow(m[i-2], 2) + C*m[i-1];