1. Nilai

program case1;
uses crt;
var
nilai: char;
begin
clrscr;
write('Masukkan Nilai : ');
readln (nilai);
case nilai of
'a' : writeln ('sangat baik');
'b' : writeln ('baik');
'c' : writeln('cukup');
'd' : writeln('kurang');
'e' : writeln('gagal');
else writeln('salah memasukkan nilai');
end;
readln;
end.