про треугольник делфи

[selestenka]

Треугольник задается координатами своих вершин на плоскости А(x1,y1),B(x2,y2), C(x3,y3) Найти стороны треугольника ABC.

Procedure TForm1.Lable1Click(Sender:TObject)
var x1,x2,x3:real;
     y1,y2,y3:real;
begin
x1:=StrToFloat(Edit1.text)
....
AB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Lable1.text:=FloatToStr(AB)
BC:=sqrt(sqr(x3-x2)+sqr(y3-y2))
Lable2.text:=FloatToStr(BC)
AC:=sqrt(sqr(x3-x1)+sqr(y3-y1))
Lable3.text:=FloatToStr(AC)

а что дальше делать-то?

[Вавел из ГМТУ]

В каком смысле "что"? Разве это не всё?

[Vol666]

Вроде, если задача прописана правильно, то это и есть решение задачи, но если неймётся можете ещё попытаться найти Р и S