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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.