Определить интервал локализации

[danas]

Добрый вечер. Задача в следующем:
Составить задачу на паскале для решения уравнения 2^x-4*x-5 методом половинного деления(дихотомии) предварительно определив интервал локализации.
Я решила задачу, но только методом половинного деления, а как определить интервал локализации? Вот код программы

program mdp;

function f(x: real): real;
begin
f:=exp((x)*ln(2))-4*x-5;;
end;

var  a, b, e, c, x: real;

begin
writeln('vvedite a,b');
readln(a,b);
write ('vvedite to4nost');
read(e);
c:=(a+b)/2;
while abs(b-a)>e do
begin
if f(a)*f(c)<0 then
b:=c
else
a:=c;
c:=(a+b)/2;
end;
x:=(a+b)/2;
writeln ('x=',x:3:3);readln;
end.

Заранее всех благодарю!!!