program main
implicit none
integer score
character grade
write(*,*) "score="
read(*,*) score
if(score>100) then
grade='?'
else if (score>=90) then
grade='A'
else if (score>=80) then
grade='B'
else if (score>=70) then
grade='C'
else if (score>=60) then
grade='D'
else if (score>=0) then
grade='E'
else
grade='?'
end if
write(*,"('grade=',A1)") grade 
end