Invalid floating point operation на паскале

[maziLa]

Есть код программы:

{$N+}
Program LR4_2;
Uses CRT;
var r,b,n,i,k,q,m,flag: LongInt;
    a,g:array[0..100] of Extended;

Begin
ClrScr;
WriteLn ('Введите n,b :');ReadLn(n,b);
q:=n-1;
repeat
q:=q div 2;
inc(k);
until (q mod 2)<>0;
r:=trunc(exp(q*ln(b))) mod n;
i:=0;
a[i]:=trunc(exp(i*ln(2)));
g[i]:=r;
repeat
If ((i=0) and (r=1)) or ((i>0) and (r=n-1))
then flag:=1;
inc(i);
r:=r*r mod n;
a[i]:=trunc(exp(abs(i*ln(2))));
g[i]:=r;
until (i>=k);
WriteLn('Степень    Вычет ');
For i:=0 to k-1 do
WriteLn(a[i]:3:0,'*',q:3,'  ',g[i]:8:0);
If flag=0 then
WriteLn('n - Составное') else
WriteLn('Ничего определённо сказать нельзя');
ReadLn;
END.

И есть ошибка Invalid floating point operation, которая появляется в данном месте: a[i]:=trunc(exp(i*ln(2)));
При вводе маленьких чисел (скажем до 60) программа работает нормально при числах больше 100 выдаёт такую ошибку.

[Grag]

Посмотри опции компилятора в плане Сопроцессора и его эмуляции, Extended работает только с сопроцессором...

[maziLa]

Та тут дело не в этом
Можно обойтися и без extended...

[Vikenty]

Обрабатывай исключения
try except end;