найти среднюю величину дохода для граждан, у которых свыше 100 000 руб.

1. Найти данные по среднедушевому доходу граждан за выбранный год.

2. Найти количество жителей в России на этот год.

3. Перемножим. Получим общий доход.

4. В интервалах до 100 000 выбираем среднее (например,

10 000,1-14 000 - это 12 000).

5. Процент граждан переводим в количество.

6. Перемножаем доход на количество для каждой группы.

7. Суммируем. Получаем доход всех, кроме тех, у кого за 100 тысяч.

8. Вычитаем из общенационального дохода. Получим доход последней группы.

9. Вычисляем, сколько их (население страны *процент и делить на сто).

10. Делим доход последней группы на их количество.

Получаем среднюю величину дохода

Так с наскоку увидеть перестановку не получилось, и для улучшения зрения сделана программка
Возможные перестановки хранятся в массиве Xchng.
В программе сделана проверка на две перестановки, что, по большому счёту избыточно, т.к. кратчайшее решение содержит всего одну перестановку. но дополнить программу проверками на 3 и 4 перестановку можно.

program pr_1;
type  Xchng_type = record
    len, first, second: integer;
  end;
const  Xchng: array [1..50] of Xchng_type =
   (
      (len: 4; first: 1; second: 5),
      (len: 3; first: 1; second: 4),
      (len: 3; first: 1; second: 5),
      (len: 3; first: 1; second: 6),
      (len: 3; first: 2; second: 5),
      (len: 3; first: 2; second: 6),
      (len: 3; first: 3; second: 6),
      (len: 2; first: 1; second: 3),
      (len: 2; first: 1; second: 4),
      (len: 2; first: 1; second: 5), 
      (len: 2; first: 1; second: 6),
      (len: 2; first: 1; second: 7),
      (len: 2; first: 2; second: 4),
      (len: 2; first: 2; second: 5),
      (len: 2; first: 2; second: 6),
      (len: 2; first: 2; second: 7),
      (len: 2; first: 3; second: 5),
      (len: 2; first: 3; second: 6),
      (len: 2; first: 3; second: 7),
      (len: 2; first: 4; second: 6),
      (len: 2; first: 4; second: 7),
      (len: 2; first: 5; second: 7),
      (len: 1; first: 1; second: 2),
      (len: 1; first: 1; second: 3),
      (len: 1; first: 1; second: 4),
      (len: 1; first: 1; second: 5),
      (len: 1; first: 1; second: 6),
      (len: 1; first: 1; second: 7),
      (len: 1; first: 1; second: 8),
      (len: 1; first: 2; second: 3),
      (len: 1; first: 2; second: 4),
      (len: 1; first: 2; second: 5),
      (len: 1; first: 2; second: 6),
      (len: 1; first: 2; second: 7),
      (len: 1; first: 2; second: 8),
      (len: 1; first: 3; second: 4),
      (len: 1; first: 3; second: 5),
      (len: 1; first: 3; second: 6),
      (len: 1; first: 3; second: 7),
      (len: 1; first: 3; second: 8),
      (len: 1; first: 4; second: 5),
      (len: 1; first: 4; second: 6),
      (len: 1; first: 4; second: 7),
      (len: 1; first: 4; second: 8),
      (len: 1; first: 5; second: 6),
      (len: 1; first: 5; second: 7),
      (len: 1; first: 5; second: 8),
      (len: 1; first: 6; second: 7),
      (len: 1; first: 6; second: 8),
      (len: 1; first: 7; second: 8) 
 );
var
  s, s_target, s1, s2, s3, s4, s5, snew1, snew2, snew3, snew4: string;
  p1,p2,p3,p4: integer;
begin
  s := ':)):):):';
  s_target := ':):):):)';
  //s:='abcdefgh';
  for p1 := 1 to 50 do
   begin
    snew1 := concat(
      Copy(s, 1, Xchng[p1].first - 1),      Copy(s, Xchng[p1].second, Xchng[p1].len),
      Copy(s, Xchng[p1].first + Xchng[p1].len, Xchng[p1].second - Xchng[p1].len - Xchng[p1].first),
      Copy(s, Xchng[p1].first, Xchng[p1].len),
      Copy(s, Xchng[p1].second + Xchng[p1].len, 9 - Xchng[p1].second - Xchng[p1].len));
    if(CompareStr(s_target, snew1) = 0) then writeln('число перестановок = 1, номер перестановки #1=', p1);
     for p2 := 1 to 50 do
     begin
      snew2 := concat(
        Copy(snew1, 1, Xchng[p1].first - 1),
        Copy(snew1, Xchng[p2].second, Xchng[p2].len),
        Copy(snew1, Xchng[p2].first + Xchng[p2].len, Xchng[p2].second - Xchng[p2].len - Xchng[p2].first),
        Copy(snew1, Xchng[p2].first, Xchng[p2].len),
        Copy(snew1, Xchng[p2].second + Xchng[p2].len, 9 - Xchng[p2].second - Xchng[p2].len));
      if(CompareStr(s_target, snew2) = 0) then writeln('число перестановок = 2, номера перестановок #1=', p1,', #2=', p2);
          end;
      end;
end.

И вот ответ:
число перестановок = 1, номер перестановки #1=7 длина блока 3 начало первого блока3 начало второго блока6

Из условия ясно, что у нас есть 3 числа ABC и DEF и три суммы
A+D,B+E,C+F из которых состоит итоговое число. и смотрим по пункту 3 у нас C+F - это две позиции справа , и нас интересуют 4 позиции слева в итоговом числе.
из пункта 2 условие если B+E < A+D то первые две позиции будут  "A+D", а  3 и 4 слева - "B+E" , иначе первые две - "B+E", а  3 и 4  - "A+D", тоись, число полученное из первых двух позиций слева должно быть больше числа , полученного из 3 и 4 позиций слева. И смотрим на каждый вариант:
1) 141215
14> 12 - подходит
2) 121514
12< 15 - не подходит
3) 141519
14<15 - не подходит
4)112112
11<21 - не подходит