зданы координаты трех вершин реугольника (x1,y1), (x2y2),(x3,y3). Отыскать его периметр. По

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
type
  Point=record
  x,y:real
  end;

function ReadPoint(c:char):Point;
begin
  Write('Точка ',c,'-gt; '); Read(Result.x,Result.y)
end;

function Len(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

begin
  var a:=ReadPoint('A');
  var b:=ReadPoint('B');
  var c:=ReadPoint('C');
  Writeln('P=',Len(a,b)+Len(a,c)+Len(b,c))
end.

Тестовое решение:
Точка A-gt; -2 -2
Точка B-gt; 2 4
Точка C-gt; 7 -4
P=25.8646281402775