===== PascalABC.NET =====
function Бисс(a, b, c: real) :=
Sqrt(b * c * (a + b + c) * (b + c - a)) / (b + c);
begin
var (a,b,c) :=ReadReal3('Введите длины сторон:');
Writeln('Биссектрисса a = ', Бисс(a, b, c));
Writeln('Биссектрисса b = ', Бисс(b, a, c));
Writeln('Биссектрисса c = ', Бисс(c, a, b));
end.
