      IDENTIFICATION DIVISION.
      PROGRAM-ID. 121A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 H PIC 9(2).
      01 W PIC 9(2).
      01 LH PIC 9(2).
      01 LW PIC 9(2).
      01 ANS PIC 9(5).
      01 ANSS PIC Z(5).
      
      PROCEDURE DIVISION.
      ACCEPT H.
      ACCEPT W.
      ACCEPT LH.
      ACCEPT LH.
      
      COMPUTE ANS = ( H - LH ) * ( W - LW ).
	  MOVE ANS TO ANSS.
      DISPLAY ANSS.
      
      STOP RUN.