program forum_rek;
uses crt;
var
   p, x, e, s,  
   zn1, fact, chlen: real;
   k: word;

begin
writeln('Введите точность: ');
readln(e);
writeln('Введите X: ');
readln(x);
p := 1;
k := 0;
fact := 1;
zn1 := 1;
chlen := p / (zn1 * fact);
s := chlen;
while chlen > e do
   begin
   inc(k);
   p := p * sqr(x);
   zn1 := zn1 * 2;
   fact := fact * k;
   chlen := p / (zn1 * fact);
   s := s + chlen;
   end;
writeln('Сумма ряда: ', s:2:6);
end.