Найти сумму ряда s= sin X+sin X^2+sin X^3+…+sin X^n — Pascal(Паскаль)

program zad;
uses crt;
var
s:real;
x:real;
i,n:integer;
mas:array[1..100] of integer;
begin
  clrscr;
  write('введите n->  ');
  readln(n);
  write('введите x->  ');
  readln(x);
  mas[1]:=0;
  s:=0;
  for i:=1 to n do
  begin
    s:=mas[i]+sin(exp(ln(x)*i));
  end;
  write('сумма равна ',s:4:2);
  readln;
end.