Как сделать очередность +-

[yzen]

Сделал просто на сложение,а что добавить что бы менялось + -

var x,j,i,st,fa:integer;
f,s,s1,s2:real;
begin
clrscr;
writeln('Введите x ');
readln(x);
st:=1;
fa:=1;
s:=0;
s1:=0;
for i:=1 to 13 do begin
                 st:=st*x;
                 fa:=fa*i;

                 if odd(i) then s:=s+st/fa;
                 end;
                 writeln(s:5:3);
end.

[ViktorR]

Например так:

sum := 0;
a := x;
for i :=0 to 12 do
begin
   sum := sum + a;
   a := -a*sqr(x)/((2*i+2)*(2*i+3));
end;

Вроде так ...