Написать программу вычисления суммы: sin x + sin 2x + sin 3x + + sin nx

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var x:=ReadReal('x=');
  var s:=0.0;
  for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
  Writeln('s=',s)
end.

Тестовое решение
x= 0.543
n= 15
s=2.79048740821036