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

Var
i, n :integer;   
s :real;
begin
   readln (n);
   for i:=2 to n do
      s:=s+i/(i+1);
   writeln(s:0:10);
end.