Pascal :

var m:integer;
begin
  readln(m);
  case m of
    90..100:writeln('A');
	80..89:writeln('B');
	60..79:writeln('C');
	else writeln('D');
  end;
end.