program ex0403
implicit none
integer :: Grades
character (len = 1) :: Level
write (*,*) Grades
select case (Grades)
case (90:100)
 Level = 'A'
case (80:89)
 Level = 'B'
case (70:79)
 Level = 'C'
case (60:69)
 Level = 'D'
case (:59)
 Level = 'E'
case default
 Level = '?'
end select
stop
end program ex0403