program number_to_alphabet_score;
var score : Integer; alphabet_score : string;
function convert_ke_huruf(score : Integer) : string;
begin if (score >=80) and (score <=100) then alphabet_score := 'A' else if (score >=77) and (score <80) then alphabet_score := 'A-' else if (score >=75) and (score <77) then alphabet_score := 'B+' else if (score >=70) and (score <75) then alphabet_score := 'B' else if (score >=66) and (score <70) then alphabet_score := 'B-' else if (score >=61) and (score <66) then alphabet_score := 'C+' else if (score >=55) and (score <61) then alphabet_score := 'C' else if (score >=50) and (score <55) then alphabet_score := 'D+' else if (score >=40) and (score <50) then alphabet_score := 'D' else if (score >0) and (score <40) then alphabet_score := 'E'
end;
begin Write('Your score : ');ReadLn(score); convert_ke_huruf(score); WriteLn('Your score is ', alphabet_score)
end.