uses crt;
var a,b,c,d,k,d1,d2,d3:real;
i:integer;
function min(x1,x2:real):real;
begin
 if x1<x2 then min:=x1 else min:=x2;
end;
begin
 clrscr;
 writeln('Введите точки');
 readln(a,b,c,d);

 for i:=1 to 4 do
 begin
 if a>b then begin k:=a; a:=b; b:=k; end;
 if b>c then begin k:=b; b:=c; c:=k; end;
 if c>d then begin k:=c; c:=d; d:=k; end;
 end;
writeln(a,';',b,';',c,';',d);
  d1:=abs(a-b);
  d2:=abs(b-c);
  d3:=abs(c-d);
writeln('кратчайшее расстояние=', min(min(d1,d2),d3));
end.