Дано натуральное число n и действительное число x. Вычислить значение суммы s=sinx+2sinx...nsinx

Sin(x) в таких случаях проще выносить за знак суммы. И быстрее считается, и точнее. Как только вынесли - под суммой останется простейшая сумма чисел натурального ряда.

var x, S: real;

 n: integer;

begin

 Read(x, n);

 S := 0.0;

 for var i := 1 to n do

   S += i * Sin(x);

 Write(S)

end.