! 例題 3-5 うるう年の判定（改良版） ［論理演算子の活用 ］
PROGRAM ex3_5_2

  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 PROGRAM ex3_5_2