program Raizes03;
{Uses Crt;}
var 
     a,b,delta, x : real;

function entrada_float(msg : string; x : real) : real;
begin
  write(msg);readln(x);
  entrada_float := x;
end;

function f(x: real): real;
begin
     f := (x+3.1)*(x+3.2);
end;
begin
     {ClrScr;}
     writeln('Interval para busca de raizes e o passo da malha');
     a := entrada_float('a = ', a);
     b := entrada_float('a = ', b);
     delta := entrada_float('delta = ', delta);
     Writeln('Varredura no intervalo [',a:2:2,' , ',b:2:2,'] com passo ',delta:2:2);
     x :=  a;
     While  x  <  b  do
     begin
          If ( f(x+delta)*f(x) <= 0 )  
            Then writeln('[',x:2:2,' , ',x+delta:2:2, 
             ']  -->  f(',x:2:2,')=',f(x):3:4);
          x :=  x + delta;
     end;
     Writeln('FIM DA VARREDURA');
     readLn;
end.