program l42;
{$APPTYPE CONSOLE}
uses SysUtils, math;
var
a,b,x:integer;
dx,x0,eps,h,t:real;
function f(x:real):real;
begin
result:=sqr(x)+abs(4-x);
end;
function f_(x:real):real;
begin
result:=2*x-1;
end;

begin
//na [-3;3] f(x)=x^2-x+4
// f'(x)=2x-1
//eps:=1e-5;
x0:=20125468;
//repeat
dx:=f_(x0)/2;
t:=x0-dx;
x0:=t;
//until abs(dx)<eps;
// f''(x)=2 > 0  =>  minimum
writeln(x0:10:4);

writeln('Enter a,b:');
readln(a,b);
writeln('Enter h:');
readln(h);

while a<b do begin

end;

readln;
end.