IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 a Pic zz9.
	77 b pic zz9.
	77 n PIC Z9 .
	PROCEDURE DIVISION.
	Compute a = (50 - 25).
	Compute b = (625 / 25).
	display "A = (50 minus 25) ",a.
	display "B = (625 divided by 25) ", b.
	ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.