编辑代码

program main
	implicit none
    real tax
    integer salary
    read(*,*) salary
    select case(salary)
    case(0:999)
    tax=salary*0.03
    case(1000:4999)
    tax=salary*0.10
    case(5000:)
    tax=salary*0.15
    case default
    write(*,*) 'Wrong'
    end select
    write(*,*) tax
    stop
    end