Ошибка:
<span>CharMas1=array[A..Z] of integer;
Здесь используются неизвестное имя A и Z,которые,предварительно должны быть описаны в const,либо в var
</span>
нет
например число 546
если средняя цифра то это 4 а крайние это 5 и 6 4<30~~~
если среднее арифм. то это 5+4+6/2 т.е. 15/2 = 7.5 и опять же 7.5<30
Идем с конца.
Из нечетных вычли 1 (получилось четное число), к четным прибавили 1 (нечётное). Отменяем это: к четным прибавляем 1, от нечётных отнимаем.
3216 -> 2307
Третья цифра была сдвинута на 3, при этом поменяв свою четность. 2 - четное число, значит, исходное число было нечётным и было сдвинуто на 3 влево. Отменяем, сдвигаем на 3 вправо: 2 -> 3 -> 4 -> 5.
Вторая цифра была сдвинута на 2, чётность не меняла, была и осталась нечётной. Она была сдвинута на 2 разряда влево, нам надо сдвинуть на 2 вправо: 3 -> 4 -> 5.
Первая цифра сейчас чётная (0), значит, была нечётной, её сдвинули на 1 влево. Сдвигаем на 1 вправо: 0 -> 1.
Нулевая цифра была сдвинута на 0 разрядов, поэтому осталась без изменений. Это цифра 7.
Искомый пароль: 5517.
(Ну и на всякий случай: не надо ставить такие простые пароли, не будьте, как Вася!)