      IDENTIFICATION DIVISION.
      PROGRAM-ID. 108A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 K PIC 9(2).
      01 L PIC 9(2).
      01 M PIC 9(2).
      01 ANS PIC 9(3).
      01 ANSS PIC Z(3).
      
      PROCEDURE DIVISION.
      
      ACCEPT K.

      COMPUTE L = K / 2.      
      
      COMPUTE ANS = L * ( K - L ).
      DISPLAY K
      DISPLAY L
      DISPLAY M
      MOVE ANS TO ANSS.
      DISPLAY ANS.
	  STOP  RUN.