вычислить: sin x+sin 2x+sin 3x+.... (n слагаемых )

Var   n:integer;   S,x:real;BeginWrite('x = ');ReadLn(x);Write('n = ');ReadLn(n);S:=0;For n:= 1 to n do    S:=S+Sin(n*x);WriteLn('S = ',S)End.