Было всего 5 остановок, в итоге кроме Буратины было 30 пассажиров, если считать Буратину, то тогда 31 пассажир.
Var i, n, sum: integer;
begin
writeln('Введите степень');
read(n);
sum := 1;
for i := 1 to n do
sum := sum * 9;
writeln(sum);
end.
2^i=N
i-разрядность
N-размер алфавита
Чтобы закодировать алфавит нужно найти такую степень, чтобы 2 в этой степени была не меньше алфавита. Следавательно i=7