IDENTIFICATION DIVISION.
       PROGRAM-ID. multpl.
       AUTHOR. OD.
      *----------------------------------------------------------------*
      *                          PROGRAMME                             *
      *            VERIFICATION NOMBRE MULTIPLE D'UN AUTRE (IMPAIR)    *
      *----------------------------------------------------------------*

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *--------------------------*
      * DEFINITION DES VARIABLES *
      *--------------------------*
      * Nombre de départ
       77 NBR-DPRT PICTURE 99 VALUE ZERO.
      * Resultat dans la division euclidienne
       77 DV-ECLDN PICTURE 99 VALUE ZERO.
      * Reste dans la division euclidienne par 2
       77 RST PICTURE 9 VALUE ZERO.
      * Nombre impair ou pas ? (simulation d'un booléen)
       77 NBR PICTURE 99 VALUE ZERO.
           88 IMPAIR VALUE 1.
      * Résultat
       77 RSLTT PICTURE X(30).

       PROCEDURE DIVISION.
      *--------------------*
      * DEBUT DU PROGRAMME *
      *--------------------*

       PROGRAMME SECTION.

       DEBUT.
           PERFORM SAISIE UNTIL IMPAIR.
       CORPS.
           PERFORM PARITE.
       FIN.
           DISPLAY RSLTT.
           STOP RUN.

       SAISIR SECTION.
       SAISIE.
           DISPLAY "Saisissez un chiffre impair : "
           WITH NO ADVANCING.
           ACCEPT NBR-DPRT.
           PERFORM VERIF.
       VERIF.
           DIVIDE NBR-DPRT BY 2 GIVING DV-ECLDN REMAINDER RST.
           DISPLAY RST.
           IF (RST NOT EQUAL TO ZERO) THEN
               MOVE 1 TO NBR.
       PARITE.
           IF (IMPAIR) THEN
               MOVE "Le nombre est impair." TO RSLTT
                   ELSE MOVE "Le nombre n'est pas impair." TO RSLTT.