Program PascalGuru;
Var y,summa,n,eps:real;
Begin
 writeLn('Vvedite eps');
 write('eps=');
 Read(eps);
 summa:=0.0;n:=1;y:=1/(n*(n+1));
 while Abs(y) >=  eps do begin {знак с <= на >=}
 y:=1/(n*(n+1));
 summa:=summa+y;
 n:=n+1;
end;
writeln('summa=',summa:8:3);
Readln;
Readln;
end.