Uses wincrt;
var nilai : Byte;
begin
clrscr;
write('Baca nilai :');
readln(nilai);
if (nilai>=78) and (nilai<=100) then
write('Nilai = A')
else if (nilai>=68) and (nilai<=77) then
write('Nilai = B')
else if (nilai>=58) and (nilai<=67) then
write('Nilai = C')
else if (nilai>=48) and (nilai<=57) then
write('Nilai = D')
else if (nilai>=0) and (nilai<=47) then
write('Nilai = E')
else write('Angka yang anda input salah');
readln;
end.