Код
var i,j,n:byte;
x,s:real;
begin
write('X=');
readln(x);
write('Количество проходов цикла n=');
readln(n);
for i:=1 to n do
begin
x:=sin(x);
for j:=1 to i do write('sin(');
write('x');
for j:=1 to i do write(')');
if i<>n then write('+');
s:=s+x;
end;
writeln('=',s:1:10);
writeln('Press Enter');
readln;
end.