ini adalah Grade

uses crt;
Var
        Grade : String;
Begin
        CLRSCR;
        WRITELN('Masukan Nilai: ');
        READLN(Grade);
        Case grade of
        'a': WRITELN ('Excellent');
        'b,c': WRITELN('Weel Done');
        'D': WRITELN('You Passed');
        Else
                WRITELN('You Really Did Not Study Right!');
        End;
        READLN();
End.