{* Задача 359 *}

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

  ');
End.

Program zadach359;

Uses zadach359.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Константы *}
  N = 10;
Var {* Необходимые переменные *}
  x : real;
  S : real;
  a : real;
  i : integer;
Begin
  Writeln('enter x');
  readln(x);
  a := 1;
  S := 0;
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
  Begin
    a := a * sin(x) / i  S := S + a
  End;
  Writeln('summa', S, 'slagaemble', S : 7:4);
End.