Найти сумму заданной погрешности 1+sinx+ sin2x/2+sin3x/3+sin4x/4 .... на языке паскаль

var     x, s: real;     i, n: integer; begin     readln(x, n);     s := 1;     for i := 1 to n do         s := s + sin(i * x) / i;     writeln(s); end. //или //PascalABC.NET 3.1 сборка 1219 begin     var x := ReadReal('x =');     Println(         Range(1, ReadInteger('n =')).         Aggregate(1.0, (s, r)-> s + sin(r * x) / r)     ); end.