IDENTIFICATION DIVISION.
PROGRAM-ID. BOUCLES-PERFORM.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  NOMBRE                PIC 9(2)    VALUE 7.
01  COMPTEUR              PIC 9(2)    VALUE ZERO.
01  RESULTAT              PIC 9(3).
01  I                     PIC 9(2).

PROCEDURE DIVISION.
    DISPLAY "Table de multiplication de " NOMBRE ":".

    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
        COMPUTE RESULTAT = NOMBRE * I
        DISPLAY NOMBRE " X " I " = " RESULTAT
    END-PERFORM.

    DISPLAY SPACE.
    DISPLAY "Comptons de 1 a 5 avec PERFORM UNTIL :".

    MOVE 1 TO COMPTEUR.
    PERFORM AFFICHER-COMPTEUR UNTIL COMPTEUR > 5.

    STOP RUN.

AFFICHER-COMPTEUR.
    DISPLAY "Compteur = " COMPTEUR
    ADD 1 TO COMPTEUR
    .