Pascal :

var i:integer;
begin
    read(i);
    case i of
        91..100:write('A');
        71..90:write('B');
        60..70:write('C');
        0..59:write('D');
    end;
end.