Program  Rang_terme; 
uses wincrt;
var    N: integer;
           a, b, n, eps, y: real; 
function g(x:real):real;
  Begin
g:= (Ln((b-a)/x)/Ln(2)) -1;
 end;
Begin
 write ('Entrez a, a = '); 
 readln(a); 
 write ('Entrez b, b = ');
 readln(b); 
 write ('Entrez eps, eps = '); 
 readln(eps); 
 y:= g(eps);
 N:= Trunc(y)+1;
writeln (‘ N  =  ',N);
 End.