Дано натуральное число n и действительное число x. вычислить сумму ряда: sin x + sin 2x+sin 3x+…sin n*x протестировать программу для x=1.5 и n=3. проверить правильность ответа на калькуляторе.

var
  n, i: integer;  
  x, s: real;

begin
  repeat
    writeln('Введите количество слагаемых:');
    readln(n)
  until n>0;
  writeln('Введите ''x'':');
  readln(x);
  for i := 1 to n do
    s := s + sin(i * x);
  writeln(s);  
  readln
end.