ПАСКАЛЬ ABC.NET

Найти сумму числового ряда с заданной точностью e (вводится пользователем): S=1/(2*3*4)+1/(3*4*5)+1/(4*5*6)+.......

begin

 var eps := ReadReal('Введите желаемую точность:');

 var b := 1 / (2 * 3 * 4);

 var s := b;

 var i := 2;

 var a: real;

 repeat

   a := b;

   b := 1 / ((i + 1) * (i + 2) * (i + 3));

   s += b;

   Inc(i)

 until Abs(b - a) <= eps;

 Println(s)

end.