Составить программу, которая вычисляет биссектрисы треугольника со сторонами a,b,c — Pascal(Паскаль)

uses crt;
function BissX(a,b,x:real):real;
begin
BissX:=sqrt(a*b*(a+b+x)*(a+b-x))/(a+b);
end;
var a,b,c:integer;
begin
clrscr;
repeat
writeln ('vvedite storoni treygolnika');
readln(a,b,c);
if(a<abs(b-c))or(a>b+c)then writeln('ne treygolnik!');
until (a>abs(b-c))and(a<b+c);
writeln ('BissA=',BissX(b,c,a):0:1);
writeln ('BissB=',BissX(a,c,b):0:1);
writeln ('BissC=',BissX(a,b,c):0:1);
readln
end.