{
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.