вычисление суммы ряда

[druger]

Помогите составить прогу вычисления суммы (последнее слагаемое имеет глубину вычисления синуса, равную n):
sin x + sin sin x +...+ sin sin sin...sinx

[Selestis]

s:=0;
for i:=1 to n do begin
r:=x;
for j:=1 to i do r:=sin(r);
s:=s+r;
end;