var
t,d,max,sum,linshi:longint;
w:array[0..128,0..128]of longint;
i,j,m,n:longint;
x,y,k:longint;
begin
readln(d);
readln(t);
for i:=1to t dobegin
readln(x,y,k);
inc(w[x,y],k);
end;
max:=-1; sum:=0;
for i:=0to128dofor j:=0to128dobegin
linshi:=0;
for m:=-d to d dofor n:=-d to d doif (i+m>=0)and(j+n>=0)and(i+m<=128)and(j+n<=128)
then inc(linshi,w[i+m,j+n]);
if linshi>max
thenbegin max:=linshi; sum:=1; endelseif (linshi=max)and(max<>0)
then inc(sum);
end;
writeln(sum,' ',max);
end.