СРОЧНО!!! Заранее, спасибо)
напишите функцию, вычисляющую длину отрезка по координатам его концов. С помощью этой функции напишите программу, вычисляющую периметр треугольника по координатам его вершин

1. Современное короткое, но скорее всего, мало понятное школьнику решение// PascalABC.NET 3.1, сборка 1213 от 04.04.2016function LineLen(a,b:(real,real)):=  Sqrt(Sqr(b.Item1-a.Item1)+Sqr(b.Item2-a.Item2));begin  var a:array[1..3] of (real,real);  var x,y:real;  Writeln('Введите три пары координат x,y');  for var i:=1 to 3 do begin Read(x,y); a[i]:=(x,y) end;  Writeln('Периметр треугольника равен ',LineLen(a[1],a[2])+    LineLen(a[1],a[3])+LineLen(a[2],a[3]))end.Тестовое решение:Введите три пары координат x,y3 -3.5 -6 8 4 5.2Периметр треугольника равен 33.74496853868052. Традиционное, но возможно тоже не очень понятное школьнику решение// PascalABC.NET 3.1, сборка 1213 от 04.04.2016type  Point=record    x,y:real    end;function LineLen(a,b:Point):real;begin  Result:=Sqrt(Sqr(b.x-a.x)+Sqr(b.y-a.y));end;  var  a:array[1..3] of Point;  begin  Writeln('Введите три пары координат x,y');  for var i:=1 to 3 do Read(a[i].x,a[i].y);  Writeln('Периметр треугольника равен ',LineLen(a[1],a[2])+    LineLen(a[1],a[3])+LineLen(a[2],a[3]))end.