{* Задача 350 *}

Unit ZADACH350;
Interface
Implementation
Begin
 writeln('Условие задачи:

  ');
End.

Program zadach350;

Uses zadach350.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  N = 10;
Var {* В работе нам потребуются переменные: *}
  x : real;
  s : real;
  a : real;
  k : integer;
Begin
  writeln ('Введите x');
  readln (x);
  a := 1;
  S := 0;
  For k := 1 To N Do {* Увеличиваем k от 1 до N с шагом 1 *}
  Begin
    a := a * sin(x) / k;
    S := S + a;
  End;
  writeln ('Сумма ', N : 2, ' cлагаемых =', S : 7:4);
  readln; {* Ждем нажатия Enter *}
End.