File: WURZEL.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM QUADRATWURZEL(OUTPUT);

   VAR  X,Y: REAL;

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

---