Программирование (Pascal)

Посчитать сумму бесконечной цепочки чисел, с точностью до e-эпсилон или просто "e", (будем считать, что это точность достигнута, когда очередной элемент цепи по абсолютным значениям меньше "e")....И дана формула - http://irc.lv/images/photos/0/397/622/359686_orig.jpeg

Вот такая вот задача.
Если есть кто фэрштэйн в этом деле, очень прошу помочь. Лично мои мысли - пользователь вводит "e", которая будет показывать до какого числа программа будет решать или что-то в этом роде...Заранее благодарю!

Program laba5;
Uses CRT;
var
i:integer;
e,SUMM: real;
begin
ClrScr;
writeln ('Vvedite e'); readln(e);
SUMM:=0; i:=1;
While abs(SUMM)<e do begin
summ:=exp (in(-1)*i)/sqr(i);
i:=i+1;
end;
Writeln ('Kone4naja summa=',summ:10:8);
Readln;
End.

Только вот немогу разобратся с ошибкой - ввожу e(число), вылетает тут же из программы и пишет ошибку - Error 207: Invalid floating point operation.

Program laba5;
Uses CRT;
var
i:integer;
e,SUMM: real;
begin
ClrScr;
writeln ('Vvedite e'); readln(e);
SUMM:=0; i:=1;
While abs(SUMM)<e do begin
summ:=exp (in(-1)*i)/sqr(i);
i:=i+1;
end;
Writeln ('Kone4naja summa=',summ:10:8);
Readln;
End.

Только вот немогу разобратся с ошибкой - ввожу e(число), вылетает тут же из программы и пишет ошибку - Error 207: Invalid floating point operation.