IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	01 a Pic xx value '12'.
	01 b Pic xx value '12'.
	77 c Pic zz9.
	77 n PIC Z9 .
	PROCEDURE DIVISION.
	Display "Sides Are ",a," ",b.
	Multiply 12 By 12 Giving c.
	Display "The Area Of The Square Is: ",c.
	ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.