помогите написать уравнение Опции

[maks123]

Помогите пожалуйста составить уравнение....
...а также поскажите как потом перейти к while и repeat...
....очень прошу ....последняя надежда остаться в универе...
-(1+x)^2+((1+x)^4)/2-((1+x)^6)/3+...+((1+x)^20)/10;
x= -0.15

Добавлено через 11 мин.
помогите ....срочно....завтра последний день сдачи

[maks123]

var
n:integer;
summ,an,x:real;
begin
writeln('n') ;
write('x');
readln(n);
an:=(exp(n*ln(-1))*exp(2*n*ln(1+x)))/n;
x:=0.15;
summ:=0;
for n:=1 to 10 do
begin
summ:=summ+an;
writeln('summ,an');
end;
write('an',summ:6:4);
readln;
end.

Добавлено через 3 мин.
помогите...опять чушь какая то получается......ничего не могу поделать.....администраторы ..загляните плиз...