! seiseki hyouka
      PROGRAM ex3_5_a

        INTEGER :: i, n1, n2, n3, n4

        n1 = 0; n2 = 0; n3 = 0; n4 = 0

    1   READ *, i
        IF ( i < 0 .OR. i > 100 ) GOTO 9

        SELECT CASE(i)
          CASE(80:)
            PRINT *, '優'
            n1 = n1 + 1
          CASE(70:79)
            PRINT *, '良'
            n2 = n2 + 1
          CASE(60:69)
            PRINT *, '可'
            n3 = n3 + 1
          CASE DEFAULT
            PRINT *, '不可'
            n4 = n4 + 1
        END SELECT

        GOTO 1

    9   PRINT *, '優 = ', n1, '良 = ', n2, '可 = ', n3, '不可 = ', n4

      END PROGRAM ex3_5_a