PROGRAM Newton;
 
BEGIN
    writeln(' n   Square root');
    writeln('----------------');

    FOR n := 1 TO 20 DO BEGIN
        write(n:2);

        root := n;
        prev := root;
        diff := 99999;

        WHILE diff > 0.000001 DO BEGIN
            root := (n/root + root)/2;
            diff := prev - root;
            prev := root;
        END;

        writeln(root:14:6)
    END
END.