$n=<>;
<>=~/ /,$x[$_]=$`+0,$y[$_]=$'+0 for 1..$n;

for$i(1..$n){
	for$j(1..$i-1){
		$d{"$j,$i"}=($x[$i]-$x[$j])**2+($y[$i]-$y[$j])**2;
	}
}

@i=0..$n;

for(sort{$d{$a}<=>$d{$b}}keys%d){
	 /,/;$j=$`+0;$i=$'+0;
	 for(@i){
		$_=$i[$j] if$_==$i[$i];
	 }
	 if($i[$n]==$i[1]){
		print +(sqrt($d{$_})/10|0)*10 ;exit;
	 }
}