sw/src/pascal/QUADRW.PS

   1 PROGRAM QUADRATWURZEL(OUTPUT);
   2
   3    VAR  X,Y: REAL;
   4
   5 BEGIN   X := 1.0;
   6         WHILE X<=100.0 DO
   7                 BEGIN   Y := SQRT(X);
   8                         WRITELN(X :10:2, Y);
   9                         X := X + 1.0
  10                 END
  11 END.