Напишите функцию, вычисляющую длину отрезка по координатам его концов. с помощью этой функции напишите прорамму, вычесляющую периметр треугольника по координатам его вершин

(на фото задание номер 9)

function L(x1,y1,x2,y2:real):real;begin  L:=sqrt(sqr(x2-x1)+sqr(y2-y1));end;var  x1,y1,x2,y2,x3,y3,P:real;begin  Write('Введите координаты (x,y) вершины A: '); Read(x1,y1);  Write('Введите координаты (x,y) вершины B: '); Read(x2,y2);  Write('Введите координаты (x,y) вершины C: '); Read(x3,y3);  P:=L(x1,y1,x2,y2)+L(x2,y2,x3,y3)+L(x3,y3,x1,y1);  Writeln('Периметр треугольника равен ',P:0:2)end.Тестовое решение:Введите координаты (x,y) вершины A: -5 1.4Введите координаты (x,y) вершины B: 3 5.5Введите координаты (x,y) вершины C: 0 -2Периметр треугольника равен 23.11