IDENTIFICATION DIVISION.
	PROGRAM-ID. SAMPLE.

	ENVIRONMENT DIVISION.

	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 n PIC 9(2) value 25 .

	PROCEDURE DIVISION.
		display  n
		
		STOP RUN.