IDENTIFICATION DIVISION.
PROGRAM-ID. CALC.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.
NUM		PIC 9(1)VALUE 1.


PROCEDURE DIVISION.
	INICIO.
		COMPUTE NUM=1+1
		DISPLAY"VALOE"NUM
	STOP RUN.