Составьте программу вычисления суммы 2/3+3/4+4/5++10/11 с использованием оператора while

Var i:integer; s:real;
begin
i:=1; s:=0;
while i<10 do
 begin
 i:=i+1;
 s:=s+i/(i+1);
 end;
writeln('s = ',s:6:4);
end.

Результат:
s = 7.4801