Дан целочисленный массив из 100 элементов. Элементы массива могут принимать неотрицательные целые значения до 10000 включительно. Необходимо найти количество элементов массива, в десятичной записи которых содержатся ровно две шестёрки, а затем заменить элементы, которые в шестнадцатеричной записи оканчиваются на A, на число, равное найденному значению. Гарантируется, что такие элементы в массиве есть. В качестве результата необходимо вывести изменённый массив в обратном порядке, каждый элемент выводится с новой строчки.
Например, для исходного массива из шести элементов:
170 6 666 6126 26 66
программа должна вывести следующий массив
66 2 6126 2 6 2
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.

Паскаль:

const N = 100;
var a: array [1..N] of longint;
i, k, x, b: longint;
begin
for i := 1 to N do
readln(a[i]);
...