Программа на языке Pascal представлена ниже.
Program Vichysleniya;
Uses
Crt;
Var
n: 1..100; {Здесь задаётися интервал для натурального n, можете взять больше ста, это уж как угодно вам}
X, S: real;
i: byte;
begin
ClrScr;
WriteLn('Введите n:');
ReadLn(n);
WriteLn('Введите x:');
ReadLn(x);
S := Sin(x);
for i := 1 to n do
S := S + Sin(S);
WriteLn('Ответ:'#10#13, S : 3: 2);
ReadKey;
end.