       IDENTIFICATION DIVISION.
       PROGRAM-ID. ComputeRounded.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(4) VALUE 20.
       01 C PIC 9(4)V99.
       PROCEDURE DIVISION.
           COMPUTE C ROUNDED = A / 3
           DISPLAY C
           COMPUTE C = A / 3
           DISPLAY C
           STOP RUN.
