IDENTIFICATION                   DIVISION.
PROGRAM-ID.                      ABC_070_A.
ENVIRONMENT                      DIVISION.
DATA                             DIVISION.
WORKING-STORAGE                  SECTION.
    01 N      PIC X(3).

PROCEDURE                        DIVISION.
MAIN.
    ACCEPT N.

    IF N(1:1) = N(3:1) THEN
        DISPLAY "Yes"
    ELSE
        DISPLAY "No"
    END-IF.

    STOP RUN.
