IDENTIFICATION DIVISION. PROGRAM-ID. IDEONE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 . PROCEDURE DIVISION. ACCEPT n PERFORM UNTIL n = 42 DISPLAY n ACCEPT n END-PERFORM. STOP RUN.