{
TASK:LIETUS
LANG:PASCAL
}
program lietsargiai;
  
  type masyvas1 = array[1..100, 1..3] of real;
  var m, n,  {žmonių su lietsargiais ir be jų skaičiai}
      kiek,  {pagalbinis kintamasis}
      ats,  {kiek žmonių sušlaps}
      i, j : integer;  {ciklo kintamieji}
      masm,  {žmonių su lietsargiais duomenų masyvas}
      masn : masyvas1;  {žmonių be lietsargių duomenų masyvas}
      d : text;
begin
  assign(d, 'lietus.dat');
  reset(d);
  {duomenų skaitymas}
  read(d, m, n);
  for i := 1 to m do
    for j := 1 to 3 do
      read(d, masm[i, j]);
  for i := 1 to n do
    for j := 1 to 2 do
      read(d, masn[i, j]);
  {kiek žmonių sušlaps}
  ats := 0;
  for i := 1 to n do
    begin
      kiek := 0;
      for j := 1 to m do
        if (sqrt((sqr(masn[i, 1] - masm[j, 1])       {tikriname, ar žmogus stovi po lietsargiu}
            + sqr(masn[i, 2] - masm[j, 2])))) <= masm[j, 3]
          then kiek := kiek + 1;
      if kiek = 0 then ats := ats + 1; {jei žmogus nepateko nei po vienu skėčiu - jis sušlaps}
    end;
  writeln (ats);
  close(d)
end.