Program grade Nilai 0-99

uses crt;
var
   n:integer;
   hasil: string;
begin
   clrscr;
   write('Nilai: ');readln(n);
   if (0<=n) and (n<=49) then
      hasil:='E'
   else if (50<=n) and (n<=59) then
      hasil:='D'
   else if (60<=n) and (n<=69) then
      hasil:='C'
   else if (70<=n) and (n<=79) then
      hasil:='B'
   else if (80<=n) and (n<=99) then
      hasil:='A'
   else
      hasil :='nilai yang anda tidak diantara 0 - 99';
   writeln('Hasil: ',hasil);
readln;



end.