Дано значение х и натуральное число n. вычислить сумму S,е используя операцию возведения в степень. S=sinx+sin в квадрате х+sin в кубе х и так далее n=10 — Pascal(Паскаль)

Uses
  crt;

Var
  i: integer;
  x, st, sum: real;

begin
  ClrScr;
  write('X: ');
  readln(x);
  st := 1;
  for i := 1 to 3 do
  begin
    st := st * sin(x);
    sum := sum + st;
  end;
  write('Sum:=', sum);
  readkey

end.