Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, отсортирует элементы массива по возрастанию количества цифр кратных трем в числе (дополнительный массив не использовать Например из массива: 1 22 33 4444 533 36, получим 1 22 4444 33 533 36. Размер массива заранее задан константой N. Используйте заголовок: procedure sort(var m: TMas); Тип ТMas задан как array[1..N] of longint и может использоваться для описания параметров подпрограмм. Используйте сортировку методом простого обмена ("пузырек"). Answer:(penalty regime: 0 %)