type
 CircleData=record
  x,y,r:extended
 end;

var
 c:CircleData;

procedure FindCenter(X1,Y1,X2,Y2,X3,Y3:integer);
//нахождение центра и радиуса окружности, описанной
//вокруг треугольника с вершинами в точках
//(X1,Y1), (X2,Y2) и (X3,Y3)
var
 a1,a2,b1,b2,c1,c2,znam:extended;
begin
 a1:=x2-x1;
 a2:=x3-x1;
 b1:=y2-y1;
 b2:=y3-y1;
 c1:=(a1*(x2+x1)+b1*(y2+y1))/2;
 c2:=(a2*(x3+x1)+b2*(y3+y1))/2;
 znam:=a1*b2-a2*b1;
//здесь, при необходимости, можно вставить проверку деления на 0
//...  и ругань на некорректный ввод :-) в случае чего. но я с этим
//заморачиваться не стал.
 c.x:= (c1*b2 - c2*b1)/znam;
 c.y:= (a1*c2 - a2*c1)/znam;
 c.r:= sqrt(sqr((x1-c.x))+sqr(y1-c.y));
end;