класс исключения 'external: sigfpe'

[Химия]

Добрый вечер. Пыталась написать программу к кп, но при запуске столкнулась с ошибкой "класс исключения 'external: sigfpe'"
В паскале я не очень прям сильна, помогите пожалуйста.
что это за ошибка? и как ее исправить?

вот код программы:

PHP код:

program main;
uses crt;
const
eps=0.001;
var
a,s:real;
x:real;
  label m1,m2;
{$I modul11.inc}
 begin
clrscr;
m2: writeln('‚ўҐ¤ЁвҐ X>0');
readln(x);
readkey;
     if x>0 then goto m1 else goto m2;
  m1:   func(x);
     a:=exp(x);
     writeln('‘㬬* ап¤* б в®з*®бвмо E=',eps:2:3,' а*ў**:я',s:2:5);
     writeln('ђҐ§г«мв*в ўлзЁб«Ґ*Ёп дг*ЄжЁЁ а*ўҐ*:',a:8:5);
     readkey;
     Readln(a);
end. 


и код модуля:

PHP код:

procedure func(x:real);
var
t,b,wtf:real;
n,i:longint;
  begin
     n:=0;
     b:=1;
     t:=1;
     while t>eps do
     begin
            begin
                a:=1;
                for i:=1 to n do
                b:=b*x
            end;
              if (n=0) or (n=1) then wtf:=1
              else wtf:=(n-1)*n;
     t:=(b/wtf); writeln(t:2:6);
     s:=s+t;
     t:=abs(t);
     n:=n+1;
     b:=1;
     end;
  end;