Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от −10 000 до 10 000 включительно. опишите алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делится на 13. в дан¬ной под парой подразумевается два подряд идущих элемента массива. например, для массива из пяти элементов: 13; 7; 26; −1; 9 — ответ: 3. исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. const n = 30; var a: array [1..n] of integer; i, j, k: integer; begin for i : = 1 to n do readln(a[i]); end.