Hasil Grade

uses crt;
var
nilai, ulang, nama:char;
begin
repeat
clrscr;
write('Nama          : ');readln(nama);
write('Grade         : ');readln(nilai);
case nilai of
'a', 'A':writeln('Nilai Anda Sangat Baik');
'b', 'B':writeln('Nilai Anda Baik');
'c', 'C':writeln('Nilai Anda Kurang');
'd', 'D':writeln('Nilai Anda Sangat Kurang');
'e', 'E':writeln('Nilai Anda Buruk Sekali');
else writeln('Anda salah memasukkan huruf, Silahkan pilih A sampai E ');
end;
write('Mau mencoba lagi ? (y/n) : ');readln(ulang);
until (ulang = 'n') or (ulang = 'N');
readln;
end.