12)Исполнитель КАЛЬКУЛЯТОР имеет только две команды ,которым присвоены номера:
1.Вычти 1
2.Умножь на 3
Выполняя команду номер 1 ,КАЛЬКУЛЯТОР вычитает из числа на экране 1 ,а выполняя команду номер 2 ,умножает число на экране на 3 .Напишиье программу,содержащую не более 5 команд ,которая из числа 3 получает число 16.Укажиье лишьномера команд , например-21211-это программа:
Умножь на 3 и т.д

3-1 = 2 (1) 2*3 = 6 (2) 6*3 = 18 (2) 18-1 = 17 (1) 17-1 = 16 (1) ответ: 12211

Var a, c, d: integer; b:array[1..10] of integer;
Begin
     For a:= 1 to 10 do
          b[a]:= random(10); // Заполнил массив случайными числами
     For a:= 1 to 10 do
     Begin
          While c <> 8 do
          Begin
               c:= c+1;
               if b[a] > b[a+c]
               Then Begin
                    d:= b[a];
                    b[a] = b[a+c];
                    b[a+c] = d
               End;
               WriteLn(b[a]);
          End;
     End;
End.
Как-то так.

31241223 (но это не точно)