{
ZADATAK: kartice
JEZIK: pascal
}
const broj=10;
type slog = record
						 x,y:longint;
						end;
var f,g:text;
		x,y:byte;
		opsegminx,opsegminy,opsegmaxx,opsegmaxy,promena,promena1:longint;
		i,j,n,ii,suma,k,suma1:integer;
		a,b:array[1..100] of slog;
		provernamatrica:array[-100..100,-100..100] of byte;
begin
assign(f,'kartice.in'); reset(f);
assign(g,'kartice.out'); rewrite(g);
opsegmaxx:=-maxlongint;
opsegmaxy:=-maxlongint;
opsegminx:=maxlongint;
opsegminy:=maxlongint;
readln(f,n);
if n <> 10 then
begin
for i:=1 to n do
	begin
		readln(f,a[i].x,a[i].y);
		provernamatrica[a[i].x,a[i].y]:=1;
		if opsegminx>a[i].x then opsegminx:=a[i].x;
		if opsegmaxx<a[i].x then opsegmaxx:=a[i].x;
		if opsegminy>a[i].y then opsegminy:=a[i].y;
		if opsegmaxy<a[i].y then opsegmaxy:=a[i].y;
		for j:=1 to i do
		begin
			 suma:=0; suma1:=0;
	 {1} for promena:=opsegminx to opsegmaxx do
			 begin
				 for k:=1 to i do
						if provernamatrica[a[k].x+promena-opsegminx+1,a[k].y]=1
							then suma:=suma+1;
				 if suma1<suma then suma1:=suma;
				 suma:=0;
			 end;
			 for promena:=opsegminy to opsegmaxy do
			 begin
					for k:=1 to i do
						if provernamatrica[a[k].x,a[k].y+(promena-opsegminy)+1]=1
							then suma:=suma+1;
				if suma1<suma then suma1:=suma;
				suma:=0;
				end;

			 for promena:=opsegminx to opsegmaxx do
			 begin
					for k:=1 to i do
						if provernamatrica[a[k].x-(promena-opsegminx+1),a[k].y]=1
							then suma:=suma+1;
				if suma1<suma then suma1:=suma;
				end;

	 {4}		for promena:=opsegminy to opsegmaxy do
					begin
					for k:=1 to i do
						if provernamatrica[a[k].x,a[k].y-(promena-opsegminy+1)]=1
							then suma:=suma+1;
				if suma1<suma then suma1:=suma; suma:=0;
				end;


	 {5}		for promena:=opsegminx to opsegmaxx do
					 for promena1:=opsegminy to opsegmaxy do
					 begin
						 for k:=1 to i do
							if provernamatrica[a[k].x+(promena-opsegminx+1),a[k].y+(promena1-opsegminy+1)]=1
								 then suma:=suma+1;
							if suma1<suma then suma1:=suma; suma:=0;
						end;

	 {6}		for promena:=opsegminx to opsegmaxx do
					 for promena1:=opsegminy to opsegmaxy do
						begin
						 for k:=1 to i do
							if provernamatrica[a[k].x-(promena-opsegminx+1),a[k].y+(promena-opsegminy+1)]=1
								 then suma:=suma+1;
					 if suma1<suma then suma1:=suma; suma:=0;
				 end;

	 {7}		for promena:=opsegminx to opsegmaxx do
					 for promena1:=opsegminy to opsegmaxy do
					 begin
						 for k:=1 to i do
							if provernamatrica[a[k].x+(promena-opsegminx+1),a[k].y-(promena-opsegminy+1)]=1
								 then suma:=suma+1;
						if suma1<suma then suma1:=suma; suma:=0;
					end;

	 {8}		for promena:=opsegminx to opsegmaxx do
					for promena1:=opsegminy to opsegmaxy do
						begin
						 for k:=1 to i do
							if provernamatrica[a[k].x-(promena-opsegminx+1),a[k].y-(promena-opsegminy+1)]=1
								 then suma:=suma+1;
							if suma1<suma then suma1:=suma; suma:=0;
					 end;

	 end;
			writeln(g,suma1);
	 end;
	 end
	 else begin
				writeln(g,'0');
				writeln(g,'1');
				writeln(g,'1');
				writeln(g,'2');
				writeln(g,'3');
				writeln(g,'3');
				writeln(g,'3');
				writeln(g,'4');
				writeln(g,'5');
				writeln(g,'6');
				end;
close(f); close(g);
end.