000100*Programme test2.cob
000200*cobc -x test2.cob -o test2cob; ./test2cob
000300 IDENTIFICATION DIVISION.
000400 PROGRAM-ID. test2.
000500 DATA DIVISION.
000600   WORKING-STORAGE SECTION.
000700     01 B PIC 9999 USAGE COMP.
000800     01 I USAGE COMP-1.
000900     01 C USAGE COMP-1.
001000     01 R USAGE COMP-1.
001100 PROCEDURE DIVISION.
001200   MOVE 1 TO B.
001300   PERFORM UNTIL B <= 0
001400     DISPLAY "Borne:? " WITH NO ADVANCING
001500     ACCEPT B
001600     MOVE 1 TO I
001700     PERFORM UNTIL I > B
001800       COMPUTE C = I**2
001900       MOVE FUNCTION SQRT(I) TO R
002000       DISPLAY "I= ",I," I^2= ",C," I^1/2= ",R
002100       COMPUTE I = I + 1
002200     END-PERFORM
002300   END-PERFORM.
002400   DISPLAY "Fin du programme test2.cob".
002500   STOP RUN.