* corpus charka — nivel 4: PERFORM n TIMES y un párrafo aparte
IDENTIFICATION DIVISION.
PROGRAM-ID. BUCLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CONT  PIC 9(3) VALUE 0.
01 WS-TOTAL PIC 9(5) VALUE 0.
PROCEDURE DIVISION.
MAIN.
    PERFORM SUMAR 5 TIMES.
    DISPLAY 'TOTAL=' WS-TOTAL.
    STOP RUN.
SUMAR.
    ADD 1 TO WS-CONT.
    ADD WS-CONT TO WS-TOTAL.