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