IDENTIFICATION DIVISION.
          PROGRAM-ID. HELLO-WORLD.
       
        ENVIRONMENT DIVISION.
       
        DATA DIVISION. 
        
        WORKING-STORAGE SECTION.
        
       	01 OPCAO   PIC 9(1).
       
        PROCEDURE DIVISION.
        
            DISPLAY "Programa do Mario!".
            ACCEPT OPCAO.
            
            IF OPCAO = 1
            DISPLAY 'NA PISCINA'
            
            ELSE 
            DISPLAY 'DORMIR'         
            DISPLAY 'NA PISCINA'

            END-IF.
       
            STOP RUN.