Задача про спутник и пары чисел - Pascal ABC

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

Всем привет, такая вот заковыристая задачка...

На спутнике «Восход» установлен прибор, предназначенный для измерения солнечной активности. Каждую минуту прибор передаёт по каналу связи натуральное число – количество энергии солнечного излучения, полученной за последнюю минуту, измеренное в условных единицах. Временем, в течение которого происходит передача, можно пренебречь. Необходимо найти в заданной серии количество пар таких показаний прибора, произведение которых кратно 6 и между моментами передачи которых прошло не менее 3 минут. Количество энергии, получаемое прибором за минуту, не превышает 1000 условных единиц. Общее количество показаний прибора в серии не превышает 10 000. Напишите программу для решения поставленной задачи, которая будет эффективна как по времени, так и по памяти . Входные данные представлены следующим образом. В первой строке задаётся число N – общее количество показаний прибора. Гарантируется, что N > 3. В каждой из следующих N строк задаётся одно натуральное число – очередное показание прибора.

Спасибо))

Решение задачи: «Задача про спутник и пары чисел»

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

var
a:integer[1..10000]of integer;
n,i,j,kol:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do 
for j:=i+3 to n do
if a[i]*a[j] mod 6=0 then inc(kol);
writeln(kol);
end.

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

В начале кода объявляются переменные: — a типа integer[1..10000]of integer, в которой будет храниться массив целых чисел; — n, i, j, kol типа integer, которые будут использоваться в циклах.
Затем происходит чтение значения переменной n с помощью функции readln.
В цикле for i:=1 to n происходит чтение значений массива a с помощью функции readln.
В цикле for i:=1 to n и for j:=i+3 to n происходит проверка условия a[i]*a[j] mod 6=0. Если оно выполняется, то значение переменной kol увеличивается на единицу с помощью функции inc.
В конце программы выводится значение переменной kol с помощью функции writeln.