Циклы итерационного типа

[vova6161]

Составить программу функции, разложенной в ряд:
а) Напишите программу вычисления суммы ряда в соответствии с вариантом задания
Y=1- 1/2 +1/4-1/8+..+(-1)n+1 * 1/2n+1+..До выполнения условия 1/2n+1меньше или равно E при Е=0,001;0,01;0,0001 б) Измените программу так, чтобы она запрашивала 3 значения eps для каждого из трёх значений x (т.е. программа должна вычислить 3 значений сумм ряда).

Моя нерабочая программа
program p7lr;
var Y, S, eps:real;
n:integer;
begin
write('vvedite eps=');
readln(eps);
Y:=0;
n:=1;
S:=1;
while abs(S)>eps do
begin
Y:=Y+S;
n:=n+1;
S:=-1*S/2;
end;
write(' eps=',eps:5:2,' Y=',Y:10:3);
readln;
end.
Помогите пожайлуста

[stck]

Program a;
var
x,y,temp,e1,e2,e3,num:real;
begin
y:=1;x:=1;e1:=0,001;e2:=0,01;e3:=0,0001;
repeat
temp:=y/2;
if x mod 2<>0 then
temp:=temp*(-1);
y:=y+temp;
inc(x);
num:=1/(2*x+1);
until (num<=e1) or (num<=e2) or (num<=e3);
writeln(y);
end.

Program b;
Uses crt;
var
x,y,temp,e,num:real;
key:char;
key_valid:boolean=false;
begin
y:=1;x:=1;
ClrScr;
writeln('Choose Eps:');
writeln('a) 0,001');
writeln('b) 0,01');
writeln('c) 0,0001');
write('Enter Value:');
readln(key);
if (key<>'a') and (key<>'b') and (key<>'c') then 
writeln('#404 Can't Find Value');
if key='a' then begin e:=0,001; key_valid:=true; end
else if key='b' then begin e:=0,01; key_valid:=true; end
else begin e:=0,0001; kry_valid:=true; end; 
if key_valid=true then
begin
repeat
temp:=y/2;
if x mod 2<>0 then
temp:=temp*(-1);
y:=y+temp;
inc(x);
num:=1/(2*x+1);
until (num<=e);
writeln(y);
end;
end.

[stck]

Судя по твоим сообщениям и темам, я бы, на твоем месте, помимо просьб о помощи параллельно изучал бы паскаль.