Основание системы смотрите по наибольшей цифре в числе
1. 8
2. 10
3. 2
6. 9
Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
<span>end.</span>
В диапазоне -32 до +32 находится 65 значений, для кодирования 1 значения потребуется 7 бит (2⁶ = 64 этого не хватит, а 2⁷ = 128)
40960*7 = 286720 бит = 35840 байт = 35 Кб
ответ: 35 Кб