IDENTIFICATION DIVISION.
       PROGRAM-ID. ComputeTest.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(4) VALUE 10.
       01 B PIC 9(4) VALUE 3.
       01 C PIC 9(2)V99.
       PROCEDURE DIVISION.
           COMPUTE C = (A + B) * 2 - 5 / 5
           DISPLAY C
           STOP RUN.