 IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST108.

 DATA DIVISION.
 WORKING-STORAGE SECTION.

 01 K     PIC 9(3).
 01 SHO   PIC 9(3).
 01 AMARI PIC 9(1).
 01 ANS   PIC ZZZ9.

 PROCEDURE DIVISION.
 
  ACCEPT K.
 
  DIVIDE K  BY 2 GIVING SHO REMAINDER AMARI.
  COMPUTE ANS = SHO * (SHO + AMARI).

  DISPLAY ANS.

 STOP RUN.