Укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 20, запись которых в системе счисления с основанием 3 начинается на 2?

5`120`000 бит =  640 000 байт = 625 кб

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!