Даны натуральные числа n, действительное число х, вычислить sinx+sinx^2+sinx^3…..sinx^n — Pascal(Паскаль)

Uses
 CRT;
Var
 sum,x:real;
 n,i:integer;
begin
ClrScr;
readln(n,x);
for i:=1 to n do
begin
sum:=sum+(sin(exp(i*ln(x))));
end;
writeln(sum);
end.