uses crt;
var v,r:text;
n,t,i:integer;
a:Array[1..100] of real;
begin
assign(v,'BAI.inp');
reset(v);
readln(v,n);
for i:=1 to n do read(v,a[i]);
assign(r,'BAI.out');
rewrite(r);
for i:=1 to n do
 if a[i]>a[i+1] then begin writeln(r,'a/KHONG');t:=1; break;end;
if t<>1 then writeln(r,'a/CO');
for i:=1 to n do
 if ((a[i]>0) and(a[i+1]>0)) or ((a[i]<0) and(a[i+1]<0)) then
 begin writeln(r,'b/KHONG');t:=2;break;end;
if t<>2 then writeln(r,'b/CO');
close(r);
end.

var n,res,t,tam:longint;
    a:array[0..100] of longint;
procedure nhap;
var i:longint;
begin
        read(n);
        for i:=1 to n do read(a[i]);
end;
procedure kt_day_tang_dan;
var i:longint;
begin
        tam:=0;
        for i:=1 to n-1 do
        begin
                begin
                        if (a[i]>a[i+1]) then inc(tam);
                end;
        end;
        if (tam=0) then writeln('a/ Có')
        else writeln('a/ Không');
end;
procedure giai;
var i:longint;
begin
        res:=0;
        for i:=1 to n-1 do
        begin
                if ((a[i]>0) and (a[i+1]>0)) or ((a[i]<0) and (a[i+1]<0)) then
                begin
                        inc(res);
                        break;
                end;
        end;
        if res=0 then writeln('b/ Có')
        else writeln('b/ Không');
end;
begin
        assign(input,'bai.inp'); reset(input);
        assign(output,'bai.out'); rewrite(output);
        nhap;
        kt_day_tang_dan;
        giai;
end.