составьте программу
дано натуральное n вычислить sin x +sin x^2+...sin x^n

var
  x,xi,s:real;
  i,n:integer;
 
begin
  Write('Введите x и n: '); Read(x,n);
  xi:=1; s:=0;
  for i:=1 to n do begin
    xi:=xi*x;
    s:=s+Sin(xi)
    end;
  Writeln(s)
end.

Пример
Введите x и n: 1.43 10
-0.669024246654944

Во вложении - контрольное решение.