$d=<>/2-.5;$s+=$_,$a-=$_*$d,$u+=$d*$d--for@a=glob<>;$b=$s/@a-($a/=$u)*$#a/2;$c+=($a*$i+++$b-$_)**2for@a;print"$b $a
$c"