исправте ошибку!!!

[vadimc]

на всю последовательность стоит ограничение х<-1 ,когда я ввожу значения больше -1(например -1,5;-2 и тд) то пишет ошибку вещественного переполнение в 14 строке,исправте пожалуйста






1.program two;
2.uses crt;
3.var
4.X,e1:real;
5.function ArcTang(X,e:real):real;
6.var
7.i:integer;
8.sum,Step:real;
9.begin
10.Step:=X;
11.i:=1;
12.while abs(step/(i*2+1))>=e do
13.begin
14.step:=step*sqr(X)*(-1);
15.sum:=(sum+step)/(i*2+1);
16.end;
17.Arctang:=sum;

end;

begin
Writeln('Введите значение числа x<-1');
read(X);
Writeln('Введите значение числa e>0');
read(e1);
Writeln(Arctang(X,e1));
end.

[Abstraction]

0) Используйте тег форума CODE для оформления кода.
1) У Вас x в числителе или в знаменателе? Что-то пресловутая 14 строка и условие находятся в диссонансе друг с другом.
2) И почему (sum+step)/(i*2+1)? И не надо ли чем-нибудь инициализировать sum?
3) И понимаете ли Вы, каким образом "вычислить значение с точностью e" преобразовалось в условие в строке 12?

[vadimc]

если сможете переделайте программу