Pascal :

var a:real;
begin
  read(a);
  if a>90 then writeln('A');
  if (a>=80)and (a<=90) then writeln('B');
  if (a>=60)and (a<=70) then writeln('C');
  if a<60 then writeln('D');
end.