Паскаль. Минимум функции на отрезке с точностью (см. внутри)

uses crt;
var
a,b,c,x1,x2,x,fx,fx_min:real;
begin
read(a,b,c,x1,x2);
x:=x1;
fx_min:=a*x*x+b*x+c;
while x<x2 do
begin
fx:=a*x*x+b*x+c;
x:=x+0.01;
if fx<fx_min then
begin
fx_min:=fx;
end;
end;
writeln('Минимум функции',fx_min:0:2);
end.

uses crt;
var
a,b,c,x1,x2,x,fx,fx_min:real;
function f(x,a,b,c:real):real;
begin
  f := a*x*x+b*x+c;
end;
begin
read(a,b,c,x1,x2);
x:=x1;
fx_min:=f(x1,a,b,c);
while x<x2 do
begin
fx:=f(x,a,b,c);
x:=x+0.01;
if fx<fx_min then
begin
fx_min:=fx;
end;
end;
writeln('Минимум функции',fx_min:0:2);
end.

uses crt;
const e=0.01;
var y:array[1..4]of real;
x,x1,x2,h:real; 
i:byte;
begin
write('Введите a,b,c,x1,x2: ');
read(a,b,c,x1,x2);
repeat
h:=(x2-x1)/3;
for i:=1 to 4 do
begin
x:=x1+(h*(i-1)); 
y[i]:=a*sqr(x)+b*x+c;
end;
if (y[1]>y[2]) and (y[2]>y[3]) then
x1:=x1+h
else 
x2:=x2-h;
until abs(y[3]-y[4])<e;
writeln('x= ',x:10:8); writeln('f= ',y[4]:10:8);
end.