program pil_5_20_c(input,output);
var
	k, i, sign : integer;
	result, next : real;
	x, eps : real;
begin
	write('Input x and eps : ');
	read(x, eps);
	next := x*x/2;
	k := 3;
	sign := -1;
	result := 1;
	x := sqr(x);
	while abs(next) > eps do begin
	  	result := result + sign*next;
		next := next * x / (k*(k+1));
		k := k+2;
		sign := -sign;
	end;
	WriteLn('Result is ', result);
end.