Небольшое рассуждение на тему если б не было информации

1.12(10)=1100(2)     11.118(10)=1110110(2)       21.111(10)=11010010100(2)

2.15(10)=1111(2)     12.205(10)=11001101(2)      22.222(10)=11011110(2)

3.25(10)=11001(2)    13.394(10)=110001010(2)     23.333(10)=101001101(2)

4.36(10)=100100(2)   14.429(10)=110101101(2)     24.444(10)=110111100(2)

5.47(10)=101111(2)   15.533(10)=1000010101(2)    25.555(10)=1000101011(2)

6.58(10)=111010(2)   16.671(10)=1010011111(2)    26.666(10)=1010011010(2)

7.69(10)=1000101(2)  17.786(10)=1100010010(2)    27.777(10)=1010011010(2)

8.71(10)=1000111(2)  18.892(10)=1101111100(2)    28.888(10)=1010011010(2)

9.82(10)=1010010(2)  19.900(10)=1110000100(2)    29.999(10)=1111100111(2)  

10.91(10)=1011011(2) 20.1684(10)=11010010100(2)  30.254(10)=11111110(2)

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018// Внимание! Если программа не работает, обновите версию!

begin

 var L := new List<integer>;

 L.AddRange(Seq(2, 100, 5, 99, 17));

 L.Println;

 var A := ReadInteger('A=');

 var s:=L.ToArray.Select((v, i)-> (v, i)); // в памяти не хранится!

 // Ищем 2- максимальный элемент. Сортируем по убыванию, берем 2-й.

 var i := s.OrderByDescending(t -> t[0]).Skip(1).First[1];

 L.Insert(i,A); // вставка

 L.Println;

 L.Remove(L.Max); // удаление

 L.Println;

 L := L.Sorted.ToList; // сортировка

 L.Println

end.