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

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


x= -0.35
S=-5.32494846593293