PROGRAM-ID.                      ABC_045_A.
DATA                             DIVISION.
WORKING-STORAGE                  SECTION.
    01 a       PIC 9(3).
    01 b       PIC 9(3).
    01 h       PIC 9(5).
    01 ZS      PIC Z(6).
    01 DUMMY   PIC X(1).
    01 ans     PIC X(5).

PROCEDURE                        DIVISION.
    ACCEPT a.
    ACCEPT b.
    ACCEPT h.

    ADD a TO b.
    MULTIPLY b BY h.
    DIVIDE 2 INTO h.

    MOVE h TO ZS.

    PERFORM UNANS.

    DISPLAY ans(1:FUNCTION STORED-CHAR-LENGTH(ans)).
    STOP RUN.

UNANS                            SECTION.
    UNSTRING
        ZS DELIMITED BY ALL SPACE
        INTO DUMMY ans
    END-UNSTRING.
