Составьте плиз алгоритм и программу в паскале S=sinx+sinx2+sinx3+...sinx7

begin
  var x:=ReadReal('x=');
  Writeln('S=',Range(1,7).Select(i->sin(power(x,i))).Sum)
end.


x= 2.17
S=-2.20745116250773