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

function leng(var x,y,x1,y1: real): real;begin  leng:=sqrt(sqr(x-x1)+sqr(y-y1));end;// основная программаvar x1,y1,x2,y2,x3,y3,p: real;begin  write('координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  ');  readln(x1,y1,x2,y2,x3,y3);  if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or     (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or     (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then  writeln('точки лежат на одной прямой')  else   begin    p:=leng(x2,y2,x1,y1)+leng(x3,y3,x2,y2)+leng(x3,y3,x1,y1);    writeln('периметр: ',p:7:3);  end;end.координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  3 4 7 2 6 5периметр:  10.797координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  1 2 3 4 5 6точки лежат на одной прямой