Pascal :

var
a:array[1..100] of longint;
b:array[1..100] of longint;
d:array[1..100] of char;
n,i,s:longint;
begin
read(n);
for i:=1 to n do
read(a[i],b[i]);
for i:=1 to n do
s:=s+b[i];
s:=s div n;
for i:=1 to n do
if b[i]+10<=s then d[i]:='C' else if b[i]-10>=s then d[i]:='A' else d[i]:='B';
for i:=1 to n do
writeln(a[i],' ',b[i],' ',d[i]);
end.