uses math;
var d,n,i,j,k,s,sum,mx1,mx2,my1,my2,x,y,x1,x2,y1,y2,u,v:longint;
    map:array[0..129,0..129]of longint;
begin
  s:=0;
  sum:=0;
  mx1:=128;
  mx2:=0;
  my1:=128;
  my2:=0;
  readln(d);
  readln(n);
  for i:=1 to n do
  begin
   read(x,y,k);
   x1:=max(0,x-d);
   x2:=min(128,x+d);
   y1:=max(0,y-d);
   y2:=min(128,y+d);
   mx1:=min(mx1,x1);
   mx2:=max(mx2,x2);
   my1:=min(my1,y1);
   my2:=max(my2,y2);
   for u:=x1 to x2 do
    for v:=y1 to y2 do
     map[u,v]:=map[u,v]+k;
   end;
   for i:=mx1 to mx2 do
    for j:=my1 to my2 do
     if s<map[i,j] then
      begin
       s:=map[i,j];
       sum:=1;
      end
      else
       if s=map[i,j] then inc(sum);
writeln(sum,' ',s);
end.
/**************************************************************
	Problem: 2337
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/