program task1_func;
uses crt;
const xa = 0;
      ya = 0;
      xb = 15;              {i = 15}
      yb = 14;
      xc = -15;
      yc = 16;
var a, b, c, s, m, hb, ma, x, y: real;

function dovguna(x1, y1, x2, y2 : real ) : real;
 begin
 dovguna:=sqrt(sqr(x1 - x2) + sqr(y1 - y2));
 end;
function bisectrusaC(a,b,c:real):real;
 var p : real;
 begin
 p := (a+b+c)/2;
 bisectrusaC:= (2/(a + b))*sqrt(a*b*p*(p-c));
 end;
function medianaA(a,b,c:real):real;
 begin
 medianaA:= 0.5 * sqrt(2*sqr(b) + 2*sqr(c) - sqr(a));
 end;
begin
clrscr;
a:= dovguna(xb, yb, xc, yc);
b:= dovguna(xa, ya, xc, yc);
c:= dovguna(xb, yb, xa, ya);

writeln('Storona a: ', a:4:2);
writeln('Storona b: ', b:4:2);
writeln('Storona c: ', c:4:2);
writeln('Bisectrusa C: ', bisectrusaC(a,b,c):4:2);
writeln('Mediana A: ', medianaA(a,b,c):4:2);
readln;
end.