Program P69;
 { Calcularea rădăcinii pătrate }
var x, epsilon,
        y1, y2 : real;
begin
 write('x='); readln(x);
 write('epsilon='); readln(epsilon);
 y2:=1;
 repeat
   y1:=y2;
   y2:=y1/2+x/(2*y1);
   writeln(y2);
 until abs(y1-y2)<=epsilon;
 readln;
end.