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

//На Pascalconst N = 40;var a: array [1..N] of longint;i,k: longint;beginfor i := 1 to N doreadln(a[i]);k := 0;for i := 1 to N - 1 doif ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) thenk:=k+1;writeln(k);end.