!-----  Ex3_3: Leap or not   -----
      INTEGER :: n
      READ*, n
      IF( MOD(n, 400) == 0 ) THEN
         PRINT*, "うるう年"
      ELSE IF( MOD(n, 100) == 0 ) THEN
         PRINT*, "平年"
      ELSE IF( MOD(n, 4) == 0 ) THEN
         PRINT*, "うるう年"
      ELSE
         PRINT*, "平年"
      END IF
      END