($a,$b,$c,$d,$e,$f)=glob<>;
$a == $b or die;
$_/=$a for $c,$d,$e,$f;
print sqrt$f-$e+($c*$c+$d*$d)/4;