Вычисление суммы бесконечного ряда (итерационный цикл) — Pascal(Паскаль)

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.