while(n=gets.to_i)>0
e=Hash.new{|h,k|h[k]=[]}
l=(1..n).map{i,j=gets.split.map(&:to_i);e[i][j]=1;[i,j]}
m=0
l.each{|i,j|
l.each{|t,u|
x=u-j
y=t-i
m=[m,x**2+y**2].max if (i!=j||t!=u)&&e[i+x][j-y]&&e[t+x][u-y]
}
}
p m
end