IDENTIFICATION                   DIVISION.
PROGRAM-ID.                      ABC_085_A.
ENVIRONMENT                      DIVISION.
DATA                             DIVISION.
WORKING-STORAGE                  SECTION.
    01 INP    PIC X(10).
PROCEDURE                        DIVISION.
MAIN.
    ACCEPT INP.

    INSPECT INP REPLACING FIRST "17" BY "18" BEFORE "/".

    DISPLAY INP.
    STOP RUN.
