PasKal помогите пожалуйста.на программе Lazarus Дано действительное x. Вычислить x-x^3/3!+x^

Var     x, s, a: real;     i: integer; begin     readln(x);          a := x;     s := a;          for i := 2 to 13 do         if i mod 2 = 1 then begin             a := a * (-1) * x * x / ((i - 1) * i);             s := s + a;         end;          writeln(s); end.