Как написать программу в паскале для вычисления суммы ряда (-1)*i / i^3? помогите пожалуйста

переделай под свою, не получится, пиши
{Двумя способами (используя, оператор цикла с предусловием и оператор цикла
с постусловием) для данного значения х найти сумму ряда S
с точностью до члена ряда, по абсолютной величине меньшего eps = 0.0001.
a:=(exp(n*ln(-1))*(exp(n*ln(x))) / (2 * exp(n*ln(2))) }
program Lab4_2;
uses crt;
const eps=0.001;
var
n,k:integer;
S,a,x,y : real;
BEGIN
clrscr;
x:=1.2 ;
repeat
clrscr;
writeln;
WRITELN('ЙНННННННННННННННННН» ');
WRITELN('є MENU є');
WRITELN('МНННННННННННННННННН№');
WRITELN('є 1.repeat є');
WRITELN('є 2.while є');
WRITELN('є 3.exit є');
WRITELN('МНННННННННННННННННН№');
WRITELN('є vash vibor ? є');
WRITEln('ИННННННННННННННННННј');
gotoxy(16,9); readln(k);
case k of
1:begin //----------------------------------
clrscr;
n:=0 ;
S:=0;
repeat
a:=exp(n*ln(x)) / (2 * exp(n*ln(2))) ;
S:=S+a;
n:=n+1;
until a < eps ;
writeln('n= ',n,' s= ',s:6:2);
readln;
end; //--------------------------------------
2:begin //------------------------------------
clrscr;
n:=0 ;
S:=0;
a:=1;
while a>eps do begin
a:=exp(n*ln(x)) / (2 * exp(n*ln(2))) ; //writeln('a=',a:5:2);
S:=S+a;
n:=n+1;
end;
writeln('n= ',n,' s= ',s:6:2);
readln;
end; //-------------------------------
3:;
else begin gotoxy(2,12);
writeln( 'net takogo punkta');
readln; end;
end; {case}
until k=3;
writeln;
writeln('end programm');
readln;
END.