Леганда555

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.        

Пояснение:

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

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