编辑代码

program main
implicit none    

integer year,money,tax
read(*,*) year,money

if (year<50) then
    select case(money)
    case(:999)
    tax=money*0.03
    case(1000:5000)
    tax=money*0.10
    case(5001:)
    tax=money*0.15
    end select
else
    select case(money)
    case(:999)
    tax=money*0.05
    case(1000:5000)
    tax=money*0.07
    case(5001:)
    tax=money*0.10
    end select
end if

write(*,*) tax
end