       IDENTIFICATION DIVISION.
       PROGRAM-ID. Arith013.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(4) VALUE 17.
       01 B PIC 9(4) VALUE 4.
       PROCEDURE DIVISION.
           ADD A TO B END-ADD.
           DISPLAY B.
           SUBTRACT A FROM B END-SUBTRACT.
           DISPLAY B.
           MULTIPLY A BY B END-MULTIPLY.
           DISPLAY B.
           DIVIDE A INTO B END-DIVIDE.
           DISPLAY B.
           STOP RUN.
