program task1_proced;
uses crt;
const xa = 0;
      ya = 0;
      xb = 15;              {i = 15}
      yb = 14;
      xc = -15;
      yc = 16;
var a, b, c, bisec, median: real;

procedure dovguna(x1,y1,x2,y2: real; var d:real);
begin
  d:=sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
procedure bisectrusaC(a, b, c : real; var bis:real);
var p:real;
begin
p:=(a+b+c)/2;
bis:= (2/(a + b))*sqrt(a*b*p*(p-c));
end;
procedure medianaA(a,b,c : real; var m:real);
begin
m:= 0.5 * sqrt(2*sqr(b) + 2*sqr(c) - sqr(a));
end;
procedure output;
begin
writeln('Storona a: ', a:4:2);
writeln('Storona b: ', b:4:2);
writeln('Storona c: ', c:4:2);
writeln('Bisectrusa C: ', bisec:4:2);
writeln('Mediana A: ', median:4:2);
end;
begin
clrscr;
 dovguna(xb, yb, xc,yc,a);
 dovguna(xa, ya, xc,yc,b);
 dovguna(xb, yb, xa,ya,c);
 medianaA(a,b,c, median);
 bisectrusaC(a, b,c, bisec);
 output;
readln;
end.