Вычисление значение суммы ряда: ( задачу решить с использованием оператора цикла For). (N-количество членов ряда (вводится с клавиатуры.)

Буду рад Вашей помощи.

var i:integer; x,sum:real;begin readln(x); for i:=1 to 9 do sum:=sum+sin(i*x)/(i+1); writeln(sum);end.

Благодарю Вас ещё раз. Вы спасли меня )