Треугольник задан сторонами, найти длины высот

uses crt;
function BissA(a,b,c:real):real;//биссектриса на сторону A
begin
BissA:=sqrt(c*b*(a+b+c)*(c+b-a))/(c+b);
end;
 
function Plosh(a,b,c:real):real;//площадь треугольника
var p:real;
begin
p:=(a+b+c)/2;
Plosh:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
 
function VysA(a,b,c:real):real;//высота на сторону А
begin
VysA:=2*Plosh(a,b,c)/a;
end;
 
function MedA(a,b,c:real):real; //медиана на сторону А
begin
MedA:=sqrt(2*(b*b+c*c)-a*a)/2;
end;
 
var a,b,c,ro,rv:real;
begin
repeat
writeln ('Введите стороны треугольника');
readln(a,b,c);
if(a<abs(b-c))or(a>b+c)then writeln('Это не треугольник!');
until (a>abs(b-c))and(a<b+c);
writeln('Длины высот');
writeln ('к стороне А=',VysA(a,b,c):0:1);
writeln ('к стороне В=',VysA(b,c,a):0:1);
writeln ('к стороне С=',VysA(c,b,a):0:1);
writeln('Длины медиан');
writeln ('к стороне А=',MedA(a,b,c):0:1);
writeln ('к стороне В=',MedA(b,c,a):0:1);
writeln ('к стороне С=',MedA(c,b,a):0:1);
writeln('Длины биссектрис');
writeln ('к стороне А=',BissA(a,b,c):0:1);
writeln ('к стороне B=',BissA(b,c,a):0:1);
writeln ('к стороне C=',BissA(c,b,a):0:1);
rv:=2*Plosh(a,b,c)/(a+b+c);
writeln('Радиус вписанной окружности=',rv:0:1);
ro:=a*b*c/4/Plosh(a,b,c);
writeln('Радиус описанной окружности=',ro:0:1);
end.