Найти длину биссектрис треугольника по длинам сторон треугольника- Pascal(Паскаль)

Program zadanie3;
Uses crt;
Var a,b,c,l1,l2,l3:real;
begin
Write('vvedite storoni treugolnika a,b,c: ');
read(a,b,c);
l1:=sqrt(a*b*(a+b+c)*(a+b-c))/(a+b);
l2:=sqrt(a*c*(a+b+c)*(a+b+c))/(a+c);
l3:=sqrt(c*b*(a+b+c)*(a+b-c))/(c+b);
Writeln('Bissektica la: ',l1:4:2);
Writeln('Bissektica lb: ',l2:4:2);
Writeln('Bissektica lc: ',l3:4:2);
end.