Составьте программу, получающую координаты вершин треугольника и отвечающую на вопрос является ли фигура равнобедренным или равносторонним треугольником?
В чем проблема? Не умеем по заданным координатам точек искать расстояние между ними?
Учись... Вообще-то это делается так:
Function Dist(x1, y1, x2, y2: Real): Real;
Begin
Dist := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));
End;