var
x:integer;
begin
read(x);
case x of
(x<10):writeln('A');
(x>=10)and(x<40):writeln('B');
(x>=40)and(x<50):writeln('C');
else writeln('D')
end
end.
x:integer;
begin
read(x);
case x of
(x<10):writeln('A');
(x>=10)and(x<40):writeln('B');
(x>=40)and(x<50):writeln('C');
else writeln('D')
end
end.