написать программу вычисления суммы n cлагаемых вида sinx+ sinx²...sin x n

uses crt;
var n,i: integer;
    s,x: real;
begin
write('Введите n: ');
read(n);
write('Введите x: ');
read(x);
for i:=1 to n do begin
s:=s+power(sin(x), i);
end;
write('Ответ: ',s:1:3);
end.

var i: integer;
    res: real;
begin
 
for i:= 1 to 10000 do
 if i and 1 = 0 then res:= res - 1/i
 else res:= res + 1/i;
 
write (res:0:7);
end.

s:=s+sin(x, i);

uses crt;
var
   n,i:integer;
   x,sum:real;
begin
write('ââåäèòå õ = ');
readln(x);
write('ââåäèòå êîíå÷íóþ ñòåïåíü, n = ');
readln(n);
for i:=1 to n do
sum:=sum+(exp(sin(x)*ln(i)));
writeln('Sum = ',sum);
end.

s:=s+sin(power((x), i));

var n, i: integer;
     x, p, sum: real;
begin
 write('Введите х: ');
 readln(x);
 write('Введите конечную степень n: ');
 readln(n);
 p:= 1;
 for i:=1 to n do
  begin
   p:= p*x;
   sum:=sum+sin(p);
  end;
 writeln('Сумма = ', sum);
end.

var n, i: integer;
     x, p, sum: real;
begin
 write('Введите х: ');
 readln(x);
 write('Введите конечную степень n: ');
 readln(n);
 p:= 1;
 for i:=1 to n do
  begin
   p:= p*sin(x);
   sum:=sum+p;
  end;
 writeln('Сумма = ', sum);
end.