IDENTIFICATION DIVISION.
       PROGRAM-ID.    hello.
       ENVIRONMENT DIVISION.

       DATA DIVISION.
*       WORKING-STORAGE SECTION.

*       01 pausa pic x.

       PROCEDURE DIVISION.

       NIVEL-PRINCIPAL.

           DISPLAY "hello ," WITH NO ADVANCING.
           DISPLAY "world!"
*           ACCEPT pausa NO BEEP.
           STOP RUN.