Формула Бине для вычисления чисел фибоначчи

[АлексаШка]

Вот формула... И вот написанная она же в Delphi

function Bine (n:byte):longint;
const a= 1.618033988749894; //золотое сечение
begin
Bine:=(exp(n*ln(a))-exp((-1*n)*ln(-1*a)))/(2*a-1);
end;

Программа вылетает.. А я наверно как обычно не вижу какой-нибудь глупой ошибки(

[Grag]

посмотри какой знак имеет аргумент функции ln(-1*a)

[АлексаШка]

Сообщение от Grag

посмотри какой знак имеет аргумент функции ln(-1*a)

Отрицательный) И как тогда делать, если в формуле степень от отрицательного фи?)
Как ещё можно степень посчитать?

[АлексаШка]

Нашла уже ответ) Модуль Math и функция IntPower(X,E) - возведение X в целую степень E
Эт если кому-то понадобится)