Найти и вывести произведение двузначных элементов массива, которые не делятся на 6 - PascalABC.NET

Формулировка задачи:

Привет, ребят! Наверное вас долбают постоянные подобные вопросы. Начну с того, что было задано нам отработать старые темы по информатике. Вот нам и задали 123 задания. Я сделал большую часть, но все же, не успел все. Сейчас я уезжаю в то место, где нет интернета и ПК и мне хотелось бы попросить у Вас помощи. Вот задание(я), которые мне нужно сделать.

_____

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите на русском языке или на одном из языков программирования алгоритм, позволяющий найти и вывести произведение двузначных элементов массива, которые не делятся на 6. Гарантируется, что в исходном массиве есть хотя бы один такой элемент. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Исходные данные всегда подобраны так, что результат произведения не выходит за пределы объявленных типов данных

const N=30;
var a: array [1..N] of longint;
 і, j, p: longint;
begin
 for і := 1 to N do
 readln(a[i]);
 ...
end.

Заранее благодарю. Без "Спасибо Вас не оставлю"! P.S. Уважаемая администрация, не удаляйте мои темы из-за их похожести

Решение задачи: «Найти и вывести произведение двузначных элементов массива, которые не делятся на 6»

Листинг программы

...
p := 1;
for j := 1 to N do //хоть как то нужно "j" использовать))
  if (a[j] > 9) and (a[j] mod 6 <> 0) then
    p *= a[j]

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Переменная p инициализируется значением 1. Она будет использоваться для хранения произведения двузначных элементов массива, которые не делятся на 6.
Запускается цикл for, который выполняется от 1 до N (где N - количество элементов в массиве a).
Внутри цикла проверяется условие: элемент массива a[j] должен быть больше 9 и не делиться на 6 без остатка.
Если условие выполняется, то значение переменной p умножается на значение элемента массива a[j].
После завершения цикла, значение переменной p будет содержать произведение двузначных элементов массива, которые не делятся на 6.