INTEGER X,Y

    Y=555

    WRITE(*,*) "HA-JI-ME-MA-SU....."

    READ(*,*) X

    IF(X.EQ.Y) THEN
      WRITE(*,*) "A-TA-RI!!!"
    ELSEIF(X.GT.Y) THEN
      WRITE(*,*) "HA-ZU-RE OH-KI-I!!!"
    ELSE
      WRITE(*,*) "HA-ZU-RE CHI-I-SAI!!!"
    ENDIF

    WRITE(*,*) "SE-I-KA-I WA = ",Y

    END