IDENTIFICATION  DIVISION.
PROGRAM-ID.     HELLO.
 
DATA DIVISION.
	WORKING-STORAGE SECTION.
      01 X PIC S99.
      
      01 STA PIC 9(2) VALUE 30.
      
      01 OUT PIC Z9.
      
PROCEDURE       DIVISION.
    MAIN SECTION.
      ACCEPT X.
      
      IF X <= 30 THEN 
      	DISPLAY 'NO'
      ELSE
      	DISPLAY 'YES'
      END-IF.
      
     STOP RUN.
      