Проверьте пожалуйста программу для следущей задачи

[allekksseyy]

Условие задачи: Найти сумму ряда с точностью e, общий член которого равен An=n!/(2n)! .Точность
считается достигнутой, если следующий член последовательности меньше
заданного e .
Решение
var e,f,s,f2n:real;
n,i:integer;
begin
write('Введите точность e>0 e=');
read(e);
f2n:=1;// факториал 2n
n:=1;{если считать от 1, а не от 0}
f:=1;//факториал
s:=1;//сумма
if e>=s then writeln('точность не достигнута')//если точнсть больше первого члена
else
begin
while f/f2n>e do
begin
n:=n+1;
f:=f*n;
f2n:=1;
for i:=1 to 2*n do
f2n:=f2n*i;
s:=s+f/f2n;
end;
writeln('s=',s:0:6);
end;
end.

[p51x]

if e>=s then writeln('точность не достигнута')//если точнсть больше первого члена

с какого перепуга?

[allekksseyy]

p51x, нужно было если точность большего первого члена присвоить сумме единицу?

[p51x]

У вас как задание звучит? Если следущий член последовательности (первый в данном случае следущий?) меньше точности (он же меньше?), то... а вы что пишите?