Задача "Треугольник" Нахождения минимального периметра.

type Tpoint = record { тип Точка }
    x: double; { координата x }
    y: double; { координата y }
  end;
 
const N = 6;
 
const PArr : array[1..N] of TPoint =
  ((x:1;y:1),
   (x:2;y:2),
   (x:4;y:6),
   (x:4;y:7),
   (x:6;y:2),
   (x:7;y:1)
   );
 
function Distance(t1, t2 : integer) : extended;
begin
  Distance := sqrt( sqr(PArr[t1].x-PArr[t2].x) + sqr(PArr[t1].y-PArr[t2].y)  )
end;
 
var i1, i2, i3, k : integer;
  ab, bc, ac, per, minPer : extended;
  i1m, i2m, i3m : integer;
begin
  k := 0;
  i1m := -1;
  minPer := 1e10;
  for i1:=1 to N do
    for i2:=i1+1 to N do
      for i3:=i2+1 to N do
       if (i1<>i2) and (i2<>i3) and (i1<>i3) then begin
          ab := Distance(i1, i2);
          bc := Distance(i2, i3);
          ac := Distance(i1, i3);
          per := (ab+bc+ac);
          Writeln(i1, ' ', i2, ' ', i3,
                ' ab=',ab:7:3, ' bc=',bc:7:3, ' ac=',ac:7:3,
                ' perimeter = ', per:7:3);
          if per<minPer then begin
             minPer := per;
             i1m := i1; i2m := i2;  i3m := i3;
          end;
          inc(k)
       end;
  WriteLn('Сочетаний всего: ',k);
  WriteLn('Минимальный периметер = ',minPer:7:3,
       ' в точках ',
          i1m, ' ', i2m, ' ', i3m);
  Readln
end.

type Tpoint = record { тип Точка }
              x:real; { координата x }
              y:real; { координата y }
              end;
function Dist(t1, t2 : Tpoint):real;
begin
  Dist := sqrt( sqr(t1.x-t2.x) + sqr(t1.y-t2.y))
end;
 
var f:text;
    t:array[1..100] of TPoint;
    n,i,i1, i2, i3, k : integer;
    i1m, i2m, i3m : integer;
    minPer:real;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
for i:=1 to n do
read(f,t[i].x,t[i].y);
close(f);
minPer := Dist(t[1],t[2])+Dist(t[2],t[3])+Dist(t[1],t[3]);
i1m:=1;
i2m:=2;
i3m:=3;
for i1:=1 to n-2 do
for i2:=i1+1 to n-1 do
for i3:=i2+1 to n do
if Dist(t[i1],t[i2])+Dist(t[i2],t[i3])+Dist(t[i1],t[i3])< minPer then
 begin
  minPer:=Dist(t[i1],t[i2])+Dist(t[i2],t[i3])+Dist(t[i1],t[i3]);
  i1m:=i1;
  i2m:=i2;
  i3m:=i3;
 end;
WriteLn('Минимальный периметер = ',minPer:0:2,' в точках ',
         i1m,'[',t[i1m].x:0:2,';',t[i1m].y:0:2,']','  ',
         i2m,'[',t[i2m].x:0:2,';',t[i2m].y:0:2,']','  ',
         i3m,'[',t[i3m].x:0:2,';',t[i3m].y:0:2,']');
end.