IDENTIFICATION DIVISION. PROGRAM-ID. SORT. DATA DIVISION. WORKING-STORAGE SECTION. 01 ARR OCCURS 5 TIMES PIC S9(2). 01 TEMP PIC 999 VALUE 000. 01 I PIC 9 VALUE 0. 01 J PIC 9 VALUE 1. PROCEDURE DIVISION. DISPLAY "ENTER ANY FIVE NUMBERS:" PERFORM UNTIL I = 5 ADD 1 TO I ACCEPT ARR(I) END-PERFORM. MOVE 1 TO I. PERFORM UNTIL I > 5 MOVE I TO J PERFORM UNTIL J > 5 IF (ARR(I) > ARR(J)) MOVE ARR(I) TO TEMP MOVE ARR(J) TO ARR(I) MOVE TEMP TO ARR(J) END-IF ADD 1 TO J GIVING J END-PERFORM ADD 1 TO I GIVING I END-PERFORM. DISPLAY "AFTER SORTING:" MOVE 0 TO I. PERFORM UNTIL I = 5 ADD 1 TO I DISPLAY I ":= " ARR(I) END-PERFORM. STOP RUN.