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.
	subtract 25 From 50 giving a.
	divide 625 by 25 giving b.
	display "Subtract 25 From 50 Equals: ",a.
	display "Divide 625 By 25 Equals: ",b.
	ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.