IDENTIFICATION DIVISION.
	PROGRAM-ID. EXEMPLO2.

	ENVIRONMENT DIVISION.

	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 n PIC Z9 .

	PROCEDURE DIVISION.
		DISPLAY "DIGITE UM NUMERO:".
		ACCEPT n
		PERFORM UNTIL n = 13
			DISPLAY "NUMERO DIGITADO:"
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		DISPLAY "O PROGRAMA SERA ENCERRADO POIS FOI DIGITADO O NUMERO 13.".
		STOP RUN.