      IDENTIFICATION DIVISION.
      PROGRAM-ID. 108A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 K PIC 9(3).
      01 SHO PIC 9(3).
      01 AMA PIC 9(1).
      01 ANS PIC 9(4).
      01 ANSS PIC ZZZ9.
      
      PROCEDURE DIVISION.
      ACCEPT K.
      DIVIDE K BY 2 GIVING SHO REMAINDER AMA.
      COMPUTE ANS = SHO * ( SHO + AMA ).
      MOVE ANS TO ANSS.
      DISPLAY ANSS.
      STOP RUN.