while(n=gets.to_i)>0
l=(1..n).map{gets.split.map &:to_i}
m=0
w=l.combination(2).to_a
while w!=[]
#p w
a,b=((i,j),(t,u)=w.shift)
#p a,b,i,j,t,u
v=[t-i,u-j]
if c=(l-[a,b]).find{|x,y|((x-=i).abs==v[1].abs)&&(x*(y-=j)==-v[0]*v[1])&&l.include?($d=[x+v[0],y+v[1]])}
m=[m,v[0]**2+v[1]**2].max
w-=[a,b,c,$d].combination(2).to_a
end
end
p m
end

#l.each{|i,j|
#o=(l-[[i,j]]).map{|x,y|[x-i,y-j]}
#p=o.dup
#while q=p.shift
#if t=p.find{|x,y|(x.abs==q[1].abs)&&(x*y==-q[0]*q[1])&&$r=o.find{|a|[q[0]+x,q[1]+y]==a}}
#m=[m,q[0]**2+q[1]**2].max
#end
#end
#}
#p m
#end