program poligon;
var n,m,i,j,xx,yy,k,nr:word;
    x,y:array[1..801]of word;
    ctg1,ctg2:real;
    f:text;
begin
assign(f,'poligon.in');reset(f);
readln(f,n,m);
for i:=1 to n do
    readln(f,x[i],y[i]);
x[n+1]:=x[1];
y[n+1]:=y[1];
for i:=1 to m do begin
    readln(f,xx,yy);
    for j:=1 to n do
        if ((y[j]<yy)and(y[j+1]>yy))or((y[j]>yy)and(y[j+1]<yy))
           then begin
               ctg1:=abs((x[j]-x[j+1])/(y[j]-y[j+1]));
               ctg2:=abs((x[j]-xx)/(y[j]-yy));
               if (ctg1>=ctg2) then inc(k);
               end;
   if k xor 1<k then inc(nr);
end;
close(f);
assign(f,'poligon.out');rewrite(f);
write(f,nr);
close(f);
end.