program bt2;
var
n,i,am,duong:integer;
a:array[1..100] of integer;
begin
readln(n); am:=0; duong:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do begin
if a[i]>=0 then duong:=duong+1
else am:=am+1;
end;
writeln('co ',duong,' so duong');
writeln( 'co ',am,' so am');
end.