IDENTIFICATION  DIVISION.
PROGRAM-ID.     MAIN.
ENVIRONMENT     DIVISION.
DATA            DIVISION.
WORKING-STORAGE  SECTION.
01 R        PIC XXX.
      
PROCEDURE DIVISION.

ACCEPT R.
IF R(1:1) = R(3:1) THEN
	DISPLAY "Yes"
ELSE
	DISPLAY "No"
END-IF.
STOP RUN.
