[boxep]

Кажется сделал

var n:integer; e,dr,sum:extended;

begin
e:=StrToFloat(Edit1.Text);
sum:=0;
dr:=1;
n:=-1;
repeat
sum:=sum+dr;
inc(n,2);
dr:=1/n;
until dr<e;
showmessage(FloatToStr(sum));
end;

Почему то значение всегда равно 1, что не так?