IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	01 a Pic x(45) value "The Cobol Subtract/Divide Prog.".
	77 b Pic zzz9.
	77 c Pic zzz9.
	77 n PIC Z9 .
	PROCEDURE DIVISION.
	Subtract 25 From 100 giving b.
	Divide 2025 by 45 giving c.
	Display "100 Minus 25 Equals: ",b.
	Display "Divide 45 Into 2025 Equlads: ",c.
	ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.