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.