#!/usr/bin/tclsh
# Programme test2.tcl
# chmod a+x test2.tcl; ./test2.tcl

set B 1
while {$B > 0} {
  puts -nonewline "Borne:? "
  flush stdout
  gets stdin B
  for {set I 1} {$I <= $B} {incr I 1} {
    puts "I= $I I^2= [expr $I**2] I^1/2= [expr sqrt($I)]"
  }
}
puts "Fin du programme test2.tcl"
exit 0