program Project3;
{$APPTYPE CONSOLE}
var a,b:array[1..100] of integer;
i,n,k,h,S,S1:integer;
begin
writeln('Vvedit kilkist hlopchykiv');
readln(k);
writeln('Vvedit kilkist divchatok');
readln(n);S:=0;S1:=0;
for i:=1 to k do begin
writeln('Vvedit zrist ',i,' hlopchyka ');
readln(b[i]);end;
for i:=1 to n do begin
writeln('Vvedit zrist ',i,' divchynky ');
readln(a[i]);end;
writeln('Vvedit dovjynu parkanu');
readln(h);
for i:=1 to k do begin
if -b[i]>h then
S:=S+1;end;
for i:=1 to n do begin
if a[i]+10>h then
S1:=S1+1;end;
writeln('Divchatok ',S1,' hlopchykiv ',S);
readln;
end.