В Чепуляндии на прямой Ox располагаются три дома. Первый находится в точке x1, второй находится в точке x2, а третий — в точке x3. Муниципалитет города планирует
поставить новую 5G вышку, для чего ему нужно выбрать определенную оптимальную
точку. Какое минимальное суммарное расстояние от домов жителей до новой 5G вышки?
Гарантируется, что правильный ответ всегда является целым числом.
При решении задачи опишите свой метод сортировки вставками. Не используйте
встроенные методы сортировки.
Входные данные
В первой строке следует три различных целых числа x1, x2 и x3 (1 ≤ x1, x2, x3 ≤ 100)
— координаты первого, второго и третьего домов.
Выходные данные
Выведите единственное целое число — минимальное суммарное расстояние от домов
жителей до новой 5G вышки.
Примеры
Примечание
В первом тестовом примере оптимально установить вышку в точке 5. Таким образом,
расстояние до первого дома будет равно 4 (от точки 5 до точки 1), расстояние до третьего
- 4 (от точки 9 до точки 5), а до второго расстояние будет равно нулю, так как он
располагается в точке, где установлена вышка.
входные данные
1 5 9
выходные данные
8

//Блок-схемы в приложении
//Pascal ABC.NET v3.0 сборка 1111

//1
Var
 a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.

//2
Var
 a,b:integer;
begin
 read(a,b);
 if a>b then writeln(b);
 if a=b then writeln('=');
 if a<b then writeln(a);
end.

{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}

{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
 sq : array[0..999] of array[0..9] of boolean;
 co : array[0..999] of integer;
 ar : array[1..10003] of 0..9;
  i,j: integer;
 x: integer;
 t : boolean;
 begin
 for i := 0 to 999 do
   begin
   for j := 0 to 9 do
   sq[i][j] := false;
   co[i] := 0;
   end;
 for i := 1 to 3 do
   ar[i] := 0;
 i := 3;
 t := true;
 {write('000');}
 while t do
   begin
   i := i + 1;
   x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
   if co[x] >= 10 then t := false
     else
     begin
     j := 1;
     while sq[x][j] do 
       j := (j + 1) mod 10;
     ar[i] := j;
     sq[x][j] := true;
     co[x] := co[x] + 1;
     {write(j)}
     end;
   end;
 {writeln;}
 writeln('Length: ',i - 1);

 {просто чтобы убедиться}
 for i := 0 to 999 do
   for j := 0 to 9 do
   sq[i][j] := false;

  t := true;
 j := 0;
 i := 1;
 while (i <= 10000) and t do
   begin
   x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
   if sq[x][ar[i+3]] then t := false
     else
     begin
     sq[x][ar[i+3]] := true;
     j := j + 1;
     end;
   i := i + 1
   end;
 if t and (j = 10000) then
   write('Confirmed')
end.