{* Задача 383 *}

Unit ZADACH383;
Interface
Implementation
Begin
 writeln('Вычислить сумму:

 ');
End.

Program Proga_4;

Uses zadach383.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  i : integer;
  x : real;
  s : real;
  a : real;
Begin
  Write('X := ');
  readln(x);
  a := cos(x) * x*x / 6;
  s := a;
  For i := 2 To 10 Do {* Цикл для i => [2 .. 10] *}
  Begin
    a := a * cos(x) / (i + 2);
    s := s + a;
  End;
  Writeln('s := ', s);
End.