Pascal :

var
  a:longint;
begin
 readln(a);
  if a>=90 then write('A');
  if (a>=60) and (a<=89) then write('B');
  if a<60 then write('C');
end.