Паскаль, Вершины Треугольника Опции

[Мария86]

По координатам вершин треугольника вычислите его периметр,используя программу вычисления длины отрезка между двумя точками.

[TarasBer]

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