Написать программу на паскале, которая для заданных x и n вычисляет: , где n=количество членов ряда.

Var
    x, a, s: real;
    n, i: integer;

begin
    write('Введите x и n ');
    readln(x, n);
    
    a := 1;
    s := a;
    for i := 1 to n do
    begin
        a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
        s := s + a;
    end;
    
    writeln('S = ', s:10:3);
end.