По координатам вершин треугольника вычислите его периметр,используя программу вычисления длины отрезка между двумя точками.
Подпрограмма вычисления длины такая:
result := sqrt(sqr(p2.x-p1.x)+sqr(p2.y-p1.y));
...
Основной код такой:
l := dist(a,b)+dist(b,c)+dist(c,a);