program main
implicit none

integer money,tax
read(*,*) money

if (money<1000) then
tax=money*0.03
else if (money<5000) then
tax = money*0.10
else
tax = money*0.15
end if

write(*,*) tax
end