найти сумму заданной погрешности 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 сборка 1219begin    var x := ReadReal('x =');    Println(        Range(1, ReadInteger('n =')).        Aggregate(1.0, (s, r)-> s + sin(r * x) / r)    );end.