IDENTIFICATION DIVISION.
PROGRAM-ID. CALC.

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
OPCAO		PIC 9(1)VALUE ZEROS.

PROCEDURE DIVISION.
	INICIO.
		IF OPCAO = 1
			DISPLAY"OLA"
		ELSE 
			DISPLAY"MUNDO"
		END-IF.
	STOP RUN.