program z_2; var l,r,f1,f2,m1,m2,eps,x: real; function f(x: real): real; BEGIN f:=1-sqr(x); END; BEGIN l:=-3; r:=2; eps:=0.0001; while ((r-l)>eps) do begin m1:=l+(r-l)/3; m2:=r-(r-l)/3; f1:=f(m1); f2:=f(m2); if f1f2 then r:=m2 else begin l:=m1; r:=m2; end; end; m1:=(l+r)/2; f1:=f(m1); writeln (m1:8:5, f1:8:5); end.