Блок-схема

program uravnenie;
 const
  mstep=800;
 function f(x:real):real;   {функция задающее уравнение}
  begin
   f:=x*x*x*x-7*x*x-8*x-6;
  end;
 var
  a0,b0,a,b,eps,fa,fb,t,ft:real; {a0,b0 переменные для хранения границ интервала}                                                               a,b,eps{точность вычисления}
fa,fb,t,ft{переменные для поиска корня}
  st,sa,sb:integer; {количество циклов поиска}
 begin
  write('a0: ');readln(a0);      {ввод исходных данных}
  write('b0: ');readln(b0); 
  write('Tochnost: ');readln(eps);
  fa:=f(a0);fb:=f(b0);
  if fa*fb>0 then writeln('Kornei net') {проверка пересечения функции с осью Х}
   else
    begin
     a:=a0;b:=b0;
     st:=0;t:=a;ft:=fa;
     while (abs(b-a)>eps) and (st<mstep) do   {цикл деления отрезка}
      begin
       inc(st);
       t:=(a+b)/2;   {середина отрезка - корень}
       ft:=f(t);
       if fa*ft>0 then  { проверка пересечения функции с осью Х }
        begin
         fa:=ft;   {выбор нового интервала}
         a:=t
        end
       else b:=t
      end;
     if (st>mstep)          {вывод результата}
      then writeln('Net shodimosti')
      else writeln('Koren: ',t:8:3,' f(t)= ',f(t):8:3)
    end;
  readln;
 end.