uses crt;
const
eps=0.000000001;
var
f,x,x0,x1,x2:real;
fxi,fxi1: real;
begin
clrscr;
{Koordinati hordi na kotoroi mozhet nahoditsya reshenie prichem
neobyazatelno znachenie kornya uravnenya vhodit v etot otrezok}
x0:=8;
x1:=3;
repeat
fxi:=x1*x1*x1-3*sqr(x1)+3; {znachenie f-cii ot tekushego priblizhenia X}
fxi1:=x0*x0*x0-3*sqr(x0)+3; {znachenie f-cii ot predidushego priblizhenia X}
x2:=x1-(((fxi)*(x1-x0))/(fxi-fxi1)); {sleduyushee priblizhenie X}
x0:=x1; x1:=x2;
until (abs(x0-x1)<=eps); {esli pogreshnost > dopustimoy povtoryaem}
writeln(x1:11:9);
readln;
end.