var
x1,y1,x2,y2,x3,y3,a,a1,a2:double;
a:=(y2-y3)*(x2-x1)-(y2-y1)*(x2-x3);
a1:=(x1+x2)*(x2-x1)+(y2-y1)*(y1+y2);
a2:=(x2+x3)*(x2-x3)+(y2-y3)*(y2+y3);
c_cx:=round((a1*(y2-y3)-a2*(y2-y1))/a/2); circle centor x coordinary
c_cy:=round((a2*(x2-x1)-a1*(x2-x3))/a/2); circle centor ycoordinary
c_r:=anedge.p1.Distance(c_cx,c_cy); R