Вычислить сумму 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. Надеюсь на благодарность и лучший ответ.