! alternative PROGRAM
PROGRAM ex3_3_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_3_2