IDENTIFICATION DIVISION.
       PROGRAM-ID. QuickSum.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 TOTAL PIC 9(2).
       PROCEDURE DIVISION.
           COMPUTE TOTAL = 1 + 2 + 3 + 4 + 5
           DISPLAY TOTAL
           STOP RUN.