IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 a Pic zz9.
	77 b Pic zzz9.
	77 n PIC Z9 .
	PROCEDURE DIVISION.
	compute a = (35 + 35).
	compute b = (35 * 35).
	display "Add 35 + 35 ",a.
	display "Multiply 35 * 35 ",b.
	ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.