pascal number to alphabet score convert
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.