Ребят, кто разбирается в Turbo Pascal, нужно вычислить сумму ряда с этим заданием!

var

       n, i: QWord;

       s: Extended;

begin

       Read (n);

       s := 0;

       for i := 1 to n do

               s := s + (i / ((i + 1) * (i + 2)));

       Write (s);

end.        

Пояснение:

Сначала вводим количество дробей, которые необходимо сложить.

Ну а затем считаем :)