PROGRAM QUADRATWURZEL(OUTPUT);

   VAR  X,Y: REAL;

BEGIN   X := 1.0;
        WHILE X<=100.0 DO
                BEGIN   Y := SQRT(X);
                        WRITELN(X :10:2, Y);
                        X := X + 1.0
                END
END.