kolmio[a_,b_,c_]:=Module[{},
ab=b-a;
bc=c-b;
ca=a-c;
abkp=a+ab/2;
bckp=b+bc/2;
cakp=c+ca/2;
abkohtis={ab[[2]],-ab[[1]]};
bckohtis={bc[[2]],-bc[[1]]};
ratk=Solve[abkp+u*abkohtis==bckp+v*bckohtis,{u,v}];
kp=abkp+u*abkohtis/.ratk[[1]];
sade=Sqrt[(kp-a).(kp-a)];
Show[Graphics[{
  Line[{a,b,c,a}],
  Line[{abkp,kp}],
  Line[{bckp,kp}],
  Line[{cakp,kp}],
  Circle[kp,sade]
  }],AspectRatio->Automatic]
]
p1={0,5};
p2={5,1};
p3={2,5};
