program Zadacha3;

{$APPTYPE CONSOLE}

var
a:array [1..1000] of integer;
s,d,n,i,h:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
readln(h);
s:=0;
d:=0;
for i:=1 to n do begin
if (a[i]<0) and (abs(a[i])>h) then s:=s+1;
if (a[i]>0) and (a[i]+10>h) then d:=d+1;
end;
writeln('hlopchykiv ',s);
writeln('divhatok ',d);
readln;
readln;
end.