Вычислить сумму 2/3+3/4+4/5+… +10/11 в паскале с оператором цикла (я в 7 классе)

uses crt; var a, b, c, i, n: integer; s: real; begin clrscr; writeln ('Введите числитель последней дроби, превышающий 1'); readln (n); for i: =2 to n do s: =s+i/ (i+1); writeln ('Сумма дробей с точностью до 10 знаков=', s: 0:10); end.P.S. Надеюсь на благодарность и лучший ответ.