program saudymas;
  { 134 u‘davinys }
  function pateko (x, y : real;  { ž–vio koordinat‚s }
                   r : integer) : integer; { ma‘iausio apskritimo spindulys }
    { suskai‡iuoja kiek bal— gauta u‘ ž ž–v }
    var j, balai : integer; {  kur apskritim… pateko ž–vis }
  begin
    j := 1;
    balai := 0;
    while j <= 10 do
      begin
        if sqrt (sqr(x) + sqr(y)) <= r
           then begin
                  balai := 11 - j;
                  j := 11
                end
           else  j := j + 1;
         r := r * 2 { kito apskritimo spindulys bus dukart didesnis }
      end;
    pateko := balai
  end;

  var x, y, { ž–vio koordinat‚s }
      n, r, { ž–vi— skai‡ius ir ma‘iausio apskritimo spindulys }
      balai, { surinkti balai }
      i : integer;
      f : text;
begin
  assign (f, 'saud.dat');
  reset (f);
  readln (f, r, n);
  balai := 0;
  for i := 1 to n do
    begin
      readln (f, x, y);
      balai := balai + pateko (x, y, r)
    end;
  close (f);
  writeln (balai);
end.