! 例題 3-5  うるう年の判定 ［組込み関数 ］
PROGRAM ex3_5

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