      IDENTIFICATION DIVISION.
      PROGRAM-ID.  045A.
      DATA DIVISION.
      WORKING-STRAGE SECTION.
      01 A PIC 9(3).
      01 B PIC 9(3).
      01 C PIC 9(3).
      01 ANS PIC 9(5).
      01 ANSS PIC Z(5).
      
      PROCEDURE DIVISION.
      MAIN PROCEDURE.
      ACCEPT A.
      ACCEPT B.
      ACCEPT H.
      COMPUTE ANS = (A + B) * H / 2
      DISPLAY ANS.
      STOP RUN.
      END-PROCEDURE 045A.
