Program Nilai (II)

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

write('Masukkan Nilai Yang Diperoleh = ');
readln (nilai);
write('Nilai Yang Diperoleh = ');
if ((80<nilai) and (nilai<101)) then writeln ('A')
else  if ((75<nilai) and (nilai<81)) then writeln ('AB')
else  if ((70<nilai) and (nilai<76)) then writeln ('B')
else  if ((65<nilai) and (nilai<71)) then writeln ('BC')
else  if ((60<nilai) and (nilai<66)) then writeln ('C')
else  if ((40<nilai) and (nilai<61)) then writeln ('D')
else writeln('E')
end.