цикл с предусловием

[Alexandr5]

Помогите подкорректировать программу.
Задание - используя цикл с предусловием найти сумму ряда с заданной точностью.

Program Lab;
var n:integer; a,e,s:real;
Begin
e:=exp(-4*ln(10))*0.5; {Заданная точность}
n:=1;
a:=1;
while a>=e do
begin
a:=exp((2*n-1)*ln(2))/(2*n-1);
n:=n+1;
s:=s+a;
writeln(' sum=',s:3:3,' koli4=',n,' posledn=',a:3:5);
end;
end.

[Mandrivnyk]

Сумма ряда не инициализирована.
s:=0.0 перед началом цикла.

[Alexandr5]

По сути не имеет значение. На автомате присваивается 0.
Даже после этого изменения в цикл уходит.)))

[Mandrivnyk]

Проверь правильность формулы для члена ряда.
У тебя ряд расходящийся.