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.