      IDENTIFICATION DIVISION.
      PROGRAM-ID. 108A.
	  DATA DIVISION.
	  WORKING-STORAGE SECTION.
      01 K	PIC 9(3).
      01 L	PIC 9(2).
	  01 M 	PIC 9(1).
      01 ANS	PIC 9(4).
      01 ANSS   PIC Z(4).
 
	  PROCEDURE DIVISION.
	  ACCEPT K.
 
	  DIVIDE K BY 2 GIVING L REMAINDER M.
	  COMPUTE ANS = L * ( L + M ).

	  DISPLAY ANSS.
 
 	  STOP RUN.