Периметр треугольника

[ershowwk]

Язык: Pascal ABC
Решаю задачу на informatics.. Совсем не понимаю как по векторам находить периметр. Данный раздел геометрии не изучался.
Напишите функцию, вычисляющую длину отрезка по координатам его концов. С помощью этой функции напишите программу, вычисляющую периметр треугольника по координатам трех его вершин.

Входные данные
На вход программе подается 6 целых чисел — координат x1y1x2y2x3y3 вершин треугольника. Все числа по модулю не превосходят 30000.

Выходные данные
Выведите значение периметра этого треугольника с точностью до 6 знаков после десятичной точки.

Примеры
входные данные
0 0 1 0 0 1
выходные данные
3.4142135624

[ershowwk]

Решил сам
function Perim(xA, yA, xB, yB, xC, yC: real): real;
function Leng(xA, yA, xB, yB: real): real;
begin
Leng := sqrt(sqr(xA - xB) + sqr(yA - yB))
end;

var
AB, AC, BC: real;
begin
AB := Leng(xA, yA, xB, yB);
AC := Leng(xA, yA, xC, yC);
BC := Leng(xB, yB, xC, yC);
Perim := AB + AC + BC;
end;

var
xA, xB, xC, xD, yA, yB, yC, yD: real;

begin
read(xA, yA);
read(xB, yB);
read(xC, yC);;
write(Perim(xA, yA, xB, yB, xC, yC));
end.