在一个热带雨林中生存着一群猴子，它们以树上的果子为生。昨天下了一场大雨，现在雨过天晴，但整个雨林的地表还是被大水淹没着，部分植物的树冠露在水面上。猴子不会游泳，但跳跃能力比较强，它们仍然可以在露出水面的不同树冠上来回穿梭，以找到喜欢吃的果实。

现在，在这个地区露出水面的有N棵树，假设每棵树本身的直径都很小，可以忽略不计。我们在这块区域上建立直角坐标系，则每一棵树的位置由其所对应的坐标表示(任意两棵树的坐标都不相同)。

在这个地区住着的猴子有M个，下雨时，它们都躲到了茂密高大的树冠中，没有被大水冲走。由于各个猴子的年龄不同、身体素质不同，它们跳跃的能力不同。有的猴子跳跃的距离比较远(当然也可以跳到较近的树上)，而有些猴子跳跃的距离就比较近。这些猴子非常聪明，它们通过目测就可以准确地判断出自己能否跳到对面的树上。

【问题】　现已知猴子的数量及每一个猴子的最大跳跃距离，还知道露出水面的每一棵树的坐标，你的任务是统计有多少个猴子可以在这个地区露出水面的所有树冠上觅食。

 /**************************************************************

     Problem:

     User: HansBug

     Language: Pascal

     Result: Accepted

     Time: ms

     Memory: kb

 ****************************************************************/

 var

    i,j,k,l,m,n,mm:longint;

    b:array[..,..] of longint;

    a:array[..,..] of longint;

    c,d:array[..] of longint;

 function max(x,y:longint):longint;inline;

          begin

               if x>y then max:=x else max:=y;

          end;

 procedure swap(var x,y:longint);inline;

           var z:longint;

           begin

                z:=x;x:=y;y:=z;

           end;

 procedure sort(l,r:longint);inline;

           var i,j,x,y:longint;

           begin

                i:=l;j:=r;x:=a[(l+r) div ,];

                repeat

                      while a[i,]<x do inc(i);

                      while a[j,]>x do dec(j);

                      if i<=j then

                         begin

                              swap(a[i,],a[j,]);

                              swap(a[i,],a[j,]);

                              swap(a[i,],a[j,]);

                              inc(i);dec(j);

                         end;

                until i>j;

                if i<r then sort(i,r);

                if l<j then sort(l,j);

           end;

 function getfat(x:longint):longint;inline;

          begin

               if x<>c[x] then c[x]:=getfat(c[x]);

               exit(c[x]);

          end;

 begin

      readln(m);

      for i:= to m do read(d[i]);

      readln;l:=;readln(n);

      for i:= to n do readln(b[i,],b[i,]);

      for i:= to n- do

          for j:=i+ to n do

              begin

                   inc(l);a[l,]:=i;a[l,]:=j;

                   a[l,]:=(b[i,]-b[j,])*(b[i,]-b[j,])+(b[i,]-b[j,])*(b[i,]-b[j,]);

              end;

      sort(,l);

      for i:= to n do c[i]:=i;

      j:=;mm:=;

      for i:= to n- do

          begin

               repeat

                     inc(j);

                     k:=getfat(a[j,]);

                     l:=getfat(a[j,]);

               until k<>l;

               mm:=max(mm,a[j,]);

               c[k]:=l;

          end;

      l:=;

      for i:= to m do if (d[i]*d[i])>=mm then inc(L);

      writeln(l);

      readln;

 end.