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

$\displaystyle S=\sin x+\sin x^2+...+\sin x^7 = \sum_{i=1}^7\sin(x^i)$

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

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

Пример
x= 2.17
S=-2.20745116250773