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.
	Subtract 45 From 90 giving a.
	Divide 2025 by 45 giving b.
	Display "90 Minus 45 Equals. ",a.
	Display "2025 Divided By 45 Equals. ",b.
	ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.