Program Penggunaan Case

program penggunaan_case;
uses wincrt;
var
nilai:char;
grade:string;
begin
writeln('nilai yang anda input');
read(nilai);
case nilai of
'a','A':grade:='nilai yang anda dapat 100';
'b','B':grade:='nilai yang anda dapat 80';
'c','C':grade:='nilai yang anda dapat 70';
'd','D':grade:='nilai yang anda dapat 60';
'e','E':grade:='nilai yang anda dapat 50';
ELSE
grade:='nilai yang anda input';
end;
writeln(grade);
end.