{* Задача 354 *}

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

');
End.

Program SUM1 (Input, Output);

Uses zadach354.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  x : real;
  s : real;
  a : real;
  N : integer;
  k : integer;
Begin
  Writeln ('Введите x, N');
  readln (x, N);
  a := cos(x);
  S := 0; {Задание начальных значений}
  For k := 2 To N Do {* Увеличиваем k от 2 до N с шагом 1 *}
  Begin
    a := a * (cos(x)) / k;
    S := S + a;
  End;
  Writeln ('Сумма', N : 2, 'cлагаемых=', S : 7 : 4);
  Readln; {* Приостановка программы. Ожидание Enter *}
End.