program nut;
 var x0,x,e:real;
 f:text;
 begin
     writeln(' x0, e ');
     readln(x,e);
           repeat
          x0:=x;
   x:=x0-(exp(x0*ln(2))+5*x0-3)/(exp(x0*ln(2))*ln(2)+5);
          until abs(x-x0)<e;
          writeln('x=',x:8:4);
          end.