IDENTIFICATION DIVISION.
PROGRAM-ID. IDEONE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 n PIC 9(5)v99.
PROCEDURE DIVISION.
ACCEPT n from sysin
PERFORM UNTIL n = 2
DISPLAY n
ACCEPT n
END-PERFORM.
STOP RUN.
CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoKCUVOVklST05NRU5UIERJVklTSU9OLgoKCURBVEEgRElWSVNJT04uCglXT1JLSU5HLVNUT1JBR0UgU0VDVElPTi4KCTc3ICBuIFBJQyA5KDUpdjk5LgoKCVBST0NFRFVSRSBESVZJU0lPTi4KCQlBQ0NFUFQgbiBmcm9tIHN5c2luCgkJUEVSRk9STSBVTlRJTCBuID0gMgoJCQlESVNQTEFZIG4KCQkJQUNDRVBUIG4KCQlFTkQtUEVSRk9STS4KCQlTVE9QIFJVTi4K