! leap or not
PROGRAM ex3_3

  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_3