Найти сумму ряда S=1/2(в квадрате)+3/4(4 в квадрате)+5/6(6 в квадрате)+7/8(8 в квадрате)+9/10(10 в квадрате)…с заданной точностью E=10(0 в -3 степени) — Pascal(Паскаль)

Var n,i:integer;
s,t:double;
begin
writeln('enter pogreshnost');\\что за погрештность ?
readln(n);
s:=0;i:=0;
repeat
begin
t:=1/exp(i*ln(2));
s:=s+t;
i:=i+1
end;
until t=n;
writeln('s(pri pogreshnosti', n, ')=', s:6:3)
end.