Помогите найти ошибку

[betman]

[HTML]program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, math;

var i,n:integer;
e,s,ds:real;

begin

writeln('ââåäèòå e');readln(e);
s:=0;

for i:=1 to maxint do //maxInt - Ìàêñèìàëüíîå çíà÷åíèå òèïà integer: 2147483647
begin
ds:=power(-1, i+1)/i*((i+1)*(i+2));
if abs(ds)<e then
s:=s+ds;
end;
writeln('îòâåò ',s);
end.
[/HTML]

[Хыиуду]

Телепаты в отпуске. Что должна делать программа?

[Игорь Акопян]

Дабы буквы русские нормально вставлены были, надлежит копировать их в буфер обмена при включённом языке русском