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