!-----  Ex3_3_2: Alternative Program   -----
      INTEGER :: n
      READ*, n
      IF( ( MOD(n, 4)==0 .AND.  MOD(n, 100)/=0  )             &
                         .OR.   MOD(n, 400)==0      ) THEN
             PRINT*,"うるう年です。"
      ELSE
             PRINT*,"平年です。"
      END IF
      END