Составьте алгоритм пожалуйста и программу в паскале: S=sinx+sin2x+sin3x+...+sin7x

[latex]\displaystyle S=\sin x+\sin 2x+...+\sin 7x=\sum_{i=1}^7\sin(ix)[/latex] // PascalABC.NET 3.2, сборка 1399 от 08.03.2017 // Внимание! Если программа не работает, обновите версию! begin   var x:=ReadReal('x=');   Writeln('S=',Range(1,7).Select(i->sin(i*x)).Sum) end. Пример x= -0.35 S=-5.32494846593293