Программа по вычислению параметров у треугольника. Опции

[P!F!B!]

Составьте программу, получающую координаты вершин треугольника и отвечающую на вопрос является ли фигура равнобедренным или равносторонним треугольником?

[volvo]

Учись... Вообще-то это делается так:

Function Dist(x1, y1, x2, y2: Real): Real;
Begin
  Dist := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));
End;