Работая с несколькими документами одновременно, можна

var

 a:array of integer;

 i,n,min,max:integer;

begin

 write('Введите размерность массива: '); readln(n);

 setlength(a,n); dec(n);

 write('Введите разброс значений (min max): '); readln(min,max);

 writeln('Изначальный массив:');

 for i:=0 to n do

   begin

     a[i]:=random(max+abs(min)+1)+min;

     write(a[i]:4);

     if a[i]<0 then a[i]:=sqr(a[i]);

   end;

 writeln;

 writeln('Изменённый массив:');

 for i:=0 to n do

   write(a[i]:4);

end.

Дублирую свой ответ!

Если сочли мой ответ подходящим, пометьте его как "лучший" !

Программа на Python:

for base in range(2, 15):

   """ Вводимые данные """

   x = 511

   s = ""

   flag = True

   """ Перевод числа из 10 в base """

   while x:

       s += str(x % base)

       x //= base

   # На выводе обратный порядок переведённого числа, однако нам и не важно это

   """ Проверка кол-ва несовпадающих элементов """

   for el in s:

       if s.count(el) != 1:

           flag = False

   """ Вывод и остановка цикла"""

   if flag:

       print(f"{s} (base: {base})")

       break