Program Encadrement_Solution;
uses wincrt;
var a,b,m:real;
function f(x:real):real;
begin
f:=Ln(x)-x*Ln(x)+x;
end;
Begin
write('Entrez la borne inférieure a : a= ');
readln(a);
write('Entrez la borne supérieure b : b= ');
readln(b);
repeat
  m:=(a+b)/2;
  if f(m)*f(a)<0 then b:=m else a:=m;
until b-a<=1E-06;
a:=a*1E+06;
a:=Trunc(a);
a:=a*1E-06;
writeln('a= ',a);
b:=b*1E+06;
b:=Trunc(b);
b:=b*1E-06;
writeln('b= ',b);
writeln(a,'<x2<',b)
End.