IDENTIFICATION DIVISION.
PROGRAM-ID. CALCULS-EXEMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  NOMBRE1               PIC 9(3)V99 VALUE 10.50.
01  NOMBRE2               PIC 9(3)V99 VALUE 5.25.
01  RESULTAT-ADD          PIC 9(4)V99.
01  RESULTAT-SUB          PIC 9(4)V99.
01  RESULTAT-MUL          PIC 9(4)V99.
01  RESULTAT-DIV          PIC 9(4)V99.
01  RESULTAT-COMPUTE      PIC 9(5)V99.

PROCEDURE DIVISION.
    ADD NOMBRE1 NOMBRE2 TO RESULTAT-ADD.
    SUBTRACT NOMBRE2 FROM NOMBRE1 GIVING RESULTAT-SUB.
    MULTIPLY NOMBRE1 BY NOMBRE2 GIVING RESULTAT-MUL.
    DIVIDE NOMBRE1 BY NOMBRE2 GIVING RESULTAT-DIV.
    COMPUTE RESULTAT-COMPUTE = ( ((NOMBRE1 + NOMBRE2) * (2 ** 2)) / 3 ).

    DISPLAY "Addition : " RESULTAT-ADD.
    DISPLAY "Soustraction : " RESULTAT-SUB.
    DISPLAY "Multiplication : " RESULTAT-MUL.
    DISPLAY "Division : " RESULTAT-DIV.
    DISPLAY "Compute complexe : " RESULTAT-COMPUTE.

    STOP RUN.