Program nilai ;
Uses crt ;
Var huruf : char ;
Begin
Write ( ‘ nilai yang didapat: ‘);readln (huruf) ;
Case huruf of
‘A’ : writeln (‘sangat baik’) ;
‘B’ : writeln ( ‘baik ‘) ;
‘C’ : writeln ( ‘cukup’) ;
‘D’ : writeln ( ‘kurang’ ) ;
‘E’ : writeln ( ‘gagal’ ) ;
End ;
Readln ;
End.