Пользователь вводит вещественное число х и натуральное N. Программа вычисляет сумму:
S=sinx+sinsinx+...sinsin...sinx{N раз}

Фигня,не работает

Pascalvar n,a:integer;s,x,si:real;beginreadln(x,n);si:=sin(x);for a:=1 to n dobegin;s:=s+si;si:=sin(si);end;writeln(s);end.