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.
      