{* Задача 346 *}

Unit ZADACH346;
Interface
Implementation
Begin
 writeln('Вычислить выражение:


');
End.

Program zadach346;

Uses zadach346.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  x : real;
  s : real;
  a : real;
  k : integer;
Begin
  x := 1;
  a := 1 / 2;
  s := 0;
  For k := 2 To 10 Do {* Цикл для k => [2 .. 10] *}
  Begin
    a := a / (k + 1);
    s := s + a*cos(k * x) * k*(x + 1);
  End;
  writeln('s := ', s : 4:3);
  readln; {* Ждем нажатия Enter *}
End.