case of pascal
Program checkCase;
Var grade: char;
Begin
grade := 'A';
Case grade Of
'A' : Writeln('Excellent!');
'B', 'C': Writeln('Well done');
'D' : Writeln('You passed');
'F' : Writeln('Better try again');
End;
Writeln('Your grade is ', grade );
end.