uses crt;
var st:string;
d,i:integer;
kt:boolean;
begin
clrscr;
readln(st);
writeln('ten cua nguoi do la: ',st);
d:=length(st);
kt:=false;
for i:=1 to d do
if (st[i]='A') or (st[i]='B') then kt:=true;
if (kt=true) then writeln('co')
else writeln('khong');
readln;
end.