Вывести с помощью процедур медиану от стороны C и высоту треугольника со сторонами a,b,c

uses graphABC,crt;  //если АВС.net crt не нужно
var a,b,c,xc,yc,x1,y1,x2,y2,x3,y3,x4,y4:integer;
    p,x,h,m,l:real;
begin
repeat
writeln('Введите стороны треугольника');
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b) then
writeln('Эти отрезки не могут быть сторонами треугольника');
until (a<b+c)and(b<a+c)and(c<a+b);
xc:=windowwidth div 2;
yc:=windowheight div 2;
p:=(a+b+c)/2;//периметр
h:=2*sqrt(p*(p-a)*(p-b)*(p-c))/a;//длина высоты на сторону А
if a*a+c*c<b*b then //если справа тупой угол
 begin
  x:=sqrt(c*c-h*h);//дополнение стороны а вправо
  l:=a+x;//длина горизонтальной проекции треугольника
 end
else if a*a+b*b<c*c then//если слева тупой угол
 begin
  x:=sqrt(b*b-h*h);//влево
  l:=a+x;
 end
else //если у основания нет тупых углов
 begin
  x:=sqrt(b*b-h*h);//часть нижней стороны а слева от основания высоты
  l:=a;
 end;
//определим масштаб
m:=(yc-30)/(h/2);//масштаб по вертикали
if (2*xc-60)/l<m then m:=(2*xc-60)/l;//если по горизонтаи меньше, то этот масштаб
//определим горизонтальные координаты
if a*a+c*c<b*b then //если наклонен вправо
 begin
  x3:=xc+round(l*m/2);
  x2:=x3-round(x*m);
  x1:=x2-round(a*m);
 end
else if a*a+b*b<c*c then //если влево
 begin
  x3:=xc-round(l*m/2);
  x1:=x3+round(x*m);
  x2:=x1+round(a*m);
 end
else //если нет в основании тупых углов
 begin
  x1:=xc-round(l*m/2);{левая вершина}
  x2:=xc+round(l*m/2);{правая вешина}
  x3:=x1+round(x*m);{верхняя вершина}
 end;
//вертикальные координаты
y1:=yc+round(h*m/2);
y2:=y1;
y3:=yc-round(h*m/2);
//нарисуем треугольник
hidecursor;
clearwindow;
setpenwidth(3);
setpencolor(clRed);
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x1,y1);
textout((x1+x2) div 2,y1+10,'A');
textout((x1+x3)div 2-20,yc-10,'B');
textout((x2+x3)div 2+20,yc-10,'C');
x4:=(x2+x3)div 2;
y4:=(y2+y3)div 2;
setpencolor(clBlue);
line(x1,y1,x4,y4);
end.