{* Задача 281 *}

Unit ZADACH281;
Interface
Implementation
Begin
 writeln('Вычислить сумму 2/3+3/4+4/5+…+10/11. ');
End.

Program zadach281;

Uses zadach281.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  j : integer;
  i : integer;
  s : real;
Begin
  clrscr; {* Очистка экрана *}
  S := 0;
  For i := 2 To 10 Do {* Переменная i увеличивается с 2 до 10 *}
  Begin
    j := i + 1;
    S := S + i / j
  End;
  writeln('сумма равна', s : 2 : 4);
  readln; {* Ждем нажатия Enter *}
End.