 IDENTIFICATION DIVISION.
 PROGRAM-ID.     TEST108.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
  01 INP        PIC 9(3).
  01 SHO        PIC 9(2).
  01 AMA        PIC 9(1).
  01 WANS       PIC 9(4).
  01 ANS        PIC ZZZ9.

 PROCEDURE DIVISION.
  ACCEPT INP.
  DIVIDE INP BY 2 GIVING SHO REMAINDER AMA.
  COMPUTE WANS = SHO * (SHO + AMA).
  MOVE WANS       TO ANS.
  DISPLAY ANS.

 STOP RUN.