Вычислить сумму конечного ряда для N=30 (Напишите программу в Pascal ABC)

                                          PascalABC.NET

begin

 var x := ReadReal('Введите x ->');

 var S := 1.0;

 for var i := 1 to 30 do

   S += (Sin(i *x))/i;

 Print('Сумма конечного ряда:', s);

end.