(* Programme test2.mod *)
(* gm2 test2.mod -o test2mod; ./test2mod *)

MODULE test2;
  FROM StrIO IMPORT WriteString, WriteLn;
  FROM NumberIO IMPORT ReadInt, WriteInt;
  FROM LMathLib0 IMPORT sqrt;
  FROM FpuIO IMPORT WriteReal;
  VAR B, I, C : INTEGER;
  VAR R : REAL;
BEGIN
  B := 1;
  REPEAT
    WriteString("Borne:? ");
    ReadInt(B);
    FOR I := 1 TO B BY 1 DO
      C := I*I;
      R := sqrt(FLOAT(I));
      WriteString("I= ");
      WriteInt(I,3);
      WriteString(" I^2= ");
      WriteInt(C,6);
      WriteString(" I^1/2= ");
      WriteReal(R,7,5);
      WriteLn;
    END;
  UNTIL B <= 0;
  WriteString('Fin du programme test2.mod');
  WriteLn;
END test2.