IDENTIFICATION DIVISION.
       PROGRAM-ID. CALCUL-TTC.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 TARIF-HT    PIC 9(5)V99 VALUE 100.00.
       01 TVA         PIC 9(5)V99 VALUE 20.00.
       01 PRIX-TTC    PIC 9(5)V99 VALUE 0.00.

       PROCEDURE DIVISION.
       DEBUT-PROGRAMME.
           ADD TARIF-HT TO TVA GIVING PRIX-TTC
           DISPLAY "Le prix TTC est de : " PRIX-TTC.
           STOP RUN.