PROGRAM SquareRoot2;

BEGIN
    number := 2.0;
    root   := number;
    prev   := root;

    REPEAT
        root := (number/root + root)/2;
        diff := prev - root;
        prev := root;
    UNTIL diff < 0.0000000000000001;
    
    writeln(root:20:16)
END.
