{* Задача 374 *}

Unit ZADACH374;
Interface
Implementation
Begin
 writeln('Сосчитать суммы для указанных значений Х.

 ');
End.

Program lab_4;

Uses zadach374.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  x : real;
  s : real;
  a : real;
  i : integer;
Begin
  x := 2;
  a := 1 / 2;
  s := a;
  For i := - 4 To 5 Do
  Begin
    a := (a * x) / (i + 7);
    s := s + a;
  End;
  writeln('s := ' , s : 10 : 4);
  readln; {* Приостановка программы. Ожидание Enter *}
End.