type

 ko=record

   x,y:real;

 end;

var

 a:array [1..3] of ko;

 i:integer;

 s:real;

function dl(n1,m1,n2,m2:real):real;

 begin

   dl:=sqrt(sqr(n2-n1)+sqr(m2-m1));

 end;

begin

 for i:=1 to 3 do

   begin

     write('x y: ');

     readln(a[i].x,a[i].y);

   end;

 writeln;

 s:=dl(a[1].x,a[1].y,a[3].x,a[3].y);

 for i:=1 to 2 do

   if dl(a[i].x,a[i].y,a[i+1].x,a[i+1].y) < s then

     s:=dl(a[i].x,a[i].y,a[i+1].x,a[i+1].y);

 writeln(s:2:2);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!