2 курс / Численные методы / Задание 2 / Половинное деление

var x,a,b,ga,al,be,fun,funal,funga,e:real;
begin
writeln('введи нижний предел a');
readln(a);
writeln('введи верхний предел b');
readln(b);
writeln('введи точность e');
readln(e);
al:=a;
be:=b;
fun:=4*x*x*x-6*x*x+x-7;
while be-al>e do
begin;
ga:=(al+be)/2;
funga:=4*ga*ga*ga-6*ga*ga+ga-7;
funal:=4*al*al*al-6*al*al+al-7;
if sign(funga)=sign(funal)then al:=ga else be:=ga;
end;
writeln('ответ равен = ', ga);
end.