V/3

program V;
var
i, sign:integer;
sum, eps:real;
begin
ReadLN(eps);//точность
sum := 0;//сумма
sign:= 1;//знак
i:= 2;//итератор
while(1/(i*i-1) > eps) do//до тех пор, пока очередной элемент ряда по модулю больше eps
begin
    sum:= sum + sign/(i*i-1);//добавляем очедной элемент
    sign:= -sign;//меняем знак
    i:= i+1;
end;

WriteLN(sum);
end.