Program Nilai (I)

program nilai;
uses wincrt;
var
    nilai:integer;
begin

write('Masukkan Nilai Dalam Angka Yang Diperoleh = ');
readln (nilai);
write('Nilai Dalam Huruf Yang Diperoleh = ');
if nilai>=81 then writeln ('nilai=A')
else if nilai>=76 then writeln ('AB')
else if nilai>=71 then writeln ('B')
else if nilai >=66 then writeln ('BC')
else if nilai>=61 then writeln ('C')
else if nilai>=41 then writeln ('D')
else writeln('E');
end.