IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-COMPUTE-14.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-A   PIC 999 VALUE 000.
01  WS-B   PIC 999 VALUE 000.
01  WS-RESULTAT   PIC 9(6) VALUE 000000.

PROCEDURE DIVISION.
    DISPLAY "Entrez A (000 a 999) : "
    ACCEPT WS-A
    DISPLAY "Entrez B (000 a 999) : "
    ACCEPT WS-B

    COMPUTE WS-RESULTAT = (WS-A * 2) + (WS-B / 2)

    DISPLAY "Resultat : " WS-RESULTAT
    STOP RUN.