цикл While

[MsJane]

Помогите пожалуйста решить задачучерез час сдать надо) =(((
Вычислить сумму 1-(2х)/3+(3х^2)/4-(4x^3)/5+...+(11x^10)/12 при х=2.

[IT-man]

var x,i,ch:integer;
s:real;
begin
x:=2;
ch:=x;
i:=2;
s:=1;
while i<12 do begin
if i mod 2 =0 then s:=s-i*ch/(i+1)
else s:=s+i*ch/(i+1);
i:=i+1;
ch:=ch*x;
end;
writeln('sum=',s:6:2);
readln;
end.