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

В чем проблема? Не умеем по заданным координатам точек искать расстояние между ними?

неа, не умеем!

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

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