Program Else If

program mencari_nilai_mata_kuliah;

uses wincrt;

var  a:integer;

begin

  readln (a);

  if ((80<a) and (a<100)) then writeln ('a=A')

  else if a>=76 then writeln ('a=AB')

  else if a>=71 then writeln ('a=B')

  else if a>=66 then writeln ('a=BC')

  else if a>=61 then writeln ('a=C')

  else if a>=41 then writeln ('a=D')

  else writeln('a=E');

end.