* corpus charka — nivel 3: condicionales IF / ELSE
IDENTIFICATION DIVISION.
PROGRAM-ID. CONDICIONAL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NOTA PIC 9(3) VALUE 72.
PROCEDURE DIVISION.
MAIN.
    IF WS-NOTA >= 60
        DISPLAY 'APROBADO'
    ELSE
        DISPLAY 'REPROBADO'
    END-IF.
    IF WS-NOTA > 90
        DISPLAY 'CON HONORES'
    END-IF.
    STOP RUN.