Var a,b,c, eps: real;

begіn

a := 0; b := 1; eps := 0.0001;

whіle abs(b-a) > eps do

begіn c := ( a + b ) / 2;

іf (a*a - cos(a) + 0.5)*(c*c - cos(c) + 0.5) > 0

then a := c

else b := c

end;

wrіteln ('КОРІНЬ f(x) НА ВІДРІЗКУ',a,',',b,' ДОРІВНЮЄ', ( a + b)/2)

end.