Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.
1 Найти Кощея
2 Убить кощея кислотой
3 Скрыть труп Кощея
Для 65 команд необходимо 7 бит. 6 бит - максимум 64, т.к. 2^6=64, 7 бит - максимум 128, т.к. 2^7=128.
Семи бит достаточно для хранения 120 команд.