($p,$q,$r)=sort{$a-$b}glob<>;
$s=$p+$q+$r;
print+($s-$p>$r?$s-$p:$r)/$s;