($a,$b,$c)=glob<>; $s=($a+$b+$c)/2; print sqrt($s*($s-$a)*($s-$b)*($s-$c))/4;