begin
  comment Programme test2.a60;
  comment a60 test2.a60;
  integer B, I, C;
  real R;
  B := 1;
  for B := B while B > 0 do begin
    outstring(1, "Borne:? ");
    ininteger(0, B);
    for I := 1 step 1 until B do begin
      C := I**2;
      R := sqrt(I);
      outstring(1, "I= ");
      outinteger(1, I);
      outstring(1, " I^2= ");
      outinteger(1, C);
      outstring(1, " I^1/2= ");
      outreal(1, R);
      outstring(1, "\n");	
    end;
  end;
  outstring(1, "Fin du programme test2.a60\n");
end