Angka Ke Huruf

Program angka_ke_huruf;
uses wincrt;
var
nilai:integer;
begin
clrscr;
write (masukkan nilai : ‘);readln(nilai);
if (nilai >= 85) and (nilai<= 100) then
write (‘nilai anda A’)
else if (nilai >= 75) and (nilai<= 84) then
write (‘nilai anda B’);
else if (nilai >= 65) and (nilai <= 74) then
write (‘nilai anda C’)
else if (nilai >= 50) and (nilai <= 64) then
write (‘nilai anda D’)
else if (nilai >= 0) and (nilai <= 49) then
write (‘nilai anda E’)
else
write (‘Maaf nilai yang anda masukkan harus diantara 0-100’)
readln;
end.