Ну подумаешь, обычное деление на 0, с кем

Ну подумаешь, обычное деление на 0, с кем не бывает Все равно домучаю! :twisted:

Добавлено спустя 7 часов 21 минуту 36 секунд:

Вот!

procedure FindCenter(X1,Y1,X2,Y2,X3,Y3:integer);
var
 a1,a2,b1,b2,c1,c2,znam:extended;
 X0,Y0:integer;
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;

 X0:= round((c1*b2 - c2*b1)/znam);
 Y0:= round((a1*c2 - a2*c1)/znam);
end;