# Programme test2.sim
# cim test2.sim -o test2sim 2> /dev/null; ./test2sim

Begin
  Short Integer B, I;
  Integer C;
  Real R;
  B := 1;
  While B > 0 Do Begin
    OutText("Borne:? ");
    BreakOutImage;
    B := InInt;
    For I := 1 Step 1 Until B Do Begin
      C := I**2;
      R := Sqrt(I);
      OutText("I= ");
      OutInt(I, 4);
      OutText(" I^2= ");
      OutInt(C, 7);
      OutText(" I^1/2= ");
      OutFix(R, 5, 8);
      OutImage;
    End;
  End;
  OutText("Fin du programme test2.sim");
  OutImage;
End;