program rabot;
+$APPTYPE CONSOLE+
uses SysUtils;
Var a,b,e,x:real;
function Y(x:real): real;
begin
y:=-cos(exp(0.49*ln(x))+sqrt(30/7))+exp(1/5*ln(x))/x-x;
end;
procedure KOR (A,b,e : real);
begin
if (a>b) or (y(a)*y(b)>0) then write ('HET KOPHEU')
else
begin
while abs(a-b)>=E do
begin
x:=(a+b)/2;
if y(a)*y(x)<0 then b:=x
else a:=x;
end;
writeln('x=', x);
end;
end;
Begin
write('a='); readln(a);
write('b='); readln(b);
write('E='); readln(E);
KOR(A,b,e);
readln;
end.
