program main
implicit none    

integer money,tax
read(*,*) money

select case(money)
case(:999)
tax=money*0.03
case(1000:5000)
tax=money*0.10
case(5001:)
tax=money*0.15
end select

write(*,*) tax
end