Ответ:
Название переменных и их зависимость друг от друга
var a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
begin
if i mod 2 = 0 then A[i] :=i * 2
else A[i] :=0;
write (a[i]:3)
end
end.
Так как в максимальная цифра в записи чисел = 5, то минимальное основание системы счисления = 6.
312(6) = 3*6^2+1*6+2 = 116(10)
222(6) = 2*6^2+2*6+2 = 86(10)
111(6) = 6^2+6+1 = 43(10)
152(6) = 1*6^2+5*6+2 = 68(10)
ко второй ссылке будет точно шесть путей