Pascal. Записать листинг программы на языке Паскаль: Треугольник задан координатами вершин А(0; 0), В(2; 2-1) и С (-2; 2+1). Вычислить медиану mа и биссектрису Wb.

Фраза "Вычислить медиану mа и биссектрису Wb. " была понята, как требование найти их длины.

Я сделал лишь то, что было в вопросе указано

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017// Внимание! Если программа не работает, обновите версию!begin  var xa,ya,xb,yb,xc,yc:real;  Write('Введите координаты точки А: '); Read(xa,ya);  Write('Введите координаты точки B: '); Read(xb,yb);  Write('Введите координаты точки C: '); Read(xc,yc);  var xd:=(xb+xc)/2;  var yd:=(yb+yc)/2;  var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya));  Writeln('ma=',ma:0:5);  var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));  var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));  var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));  var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC);  Writeln('Wb=',Wb:0:5)end.РезультатВведите координаты точки А: 0 0Введите координаты точки B: 2 1Введите координаты точки C: -2 3ma=2.00000Wb=2.66667