Дан целочисленный массив из 40 элементов элементы массива могут принимать целые значения от 0 до 100 включительно опишите на естественном или на одном из языков программирования алгоритм позволяющий найти и вывести количество пар элементов массива, сумма которых не кратна 6, а произведение меньше 1000

//На Pascal
const N = 40;
var a: array [1..N] of longint;
i,k: longint;
begin
for i := 1 to N do
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) then
k:=k+1;
writeln(k);
end.