* corpus charka — nivel 4: PERFORM UNTIL en línea (factorial)
IDENTIFICATION DIVISION.
PROGRAM-ID. FACTORIAL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-N    PIC 9(2) VALUE 6.
01 WS-I    PIC 9(2) VALUE 1.
01 WS-FACT PIC 9(8) VALUE 1.
PROCEDURE DIVISION.
MAIN.
    PERFORM UNTIL WS-I > WS-N
        MULTIPLY WS-I BY WS-FACT
        ADD 1 TO WS-I
    END-PERFORM.
    DISPLAY 'FACTORIAL DE 6 = ' WS-FACT.
    STOP RUN.