Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника - Pascal ABC

Формулировка задачи:

Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника. Для нахождения длин сторон треугольника воспользуемся формулой нахождения расстояния между двумя данными точками s = ((x2 - x1)^2+(y2-y1)^2)^(1/2), где (x1,y1) и (x2, y2) - это координаты начала и конца отрезка. Пожалуйста помогите решить)

Решение задачи: «Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника»

Листинг программы

var
a,b,c,x1,x2,x3,y1,y2,y3: real;
begin
write('Введите координату x вершины A: ');
readln(x1);
write('Введите координату y вершины A: ');
readln(y1);
write('Введите координату x вершины B: ');
readln(x2);
write('Введите координату y вершины B: ');
readln(y2);
write('Введите координату x вершины C: ');
readln(x3);
write('Введите координату y вершины C: ');
readln(y3);
a:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
b:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
c:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
writeln('AB = ',a);
writeln('BC = ',b);
writeln('AC = ',c);
end.

Объяснение кода листинга программы

Создается переменная a типа real, которая будет использоваться для хранения длины стороны AB треугольника.
Создается переменная b типа real, которая будет использоваться для хранения длины стороны BC треугольника.
Создается переменная c типа real, которая будет использоваться для хранения длины стороны AC треугольника.
Выполняется чтение координат вершин A, B и C с помощью функции readln().
Вычисляется длина стороны AB треугольника с помощью формулы a := sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)).
Вычисляется длина стороны BC треугольника с помощью формулы b := sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)).
Вычисляется длина стороны AC треугольника с помощью формулы c := sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1)).
Выводится значение переменной a с помощью функции writeln() и выводится значение переменной b с помощью функции writeln().
Выводится значение переменной c с помощью функции writeln().
Конец программы.