Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите

на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делится на 13. В данной задаче под парой подразумевается два подряд идущих элемента массива. Например, для массива из пяти элементов: 6; 2; 13; –26; 14 — ответ: 3.

Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается

не использовать некоторые из описанных переменных. 

CONST N AS INTEGER = 20
 DIM A (1 TO N) AS INTEGER
 DIM I AS INTEGER,
       J AS INTEGER,
       K AS INTEGER
 
 FOR I = 1 TO N
INPUT A(I)
 NEXT I
 ...
 END

const
    N = 20;
 var
    a: array [1..N] of integer;
    i, j, k: integer;
 begin
    for i := 1 to N do
        readln(a[i]);
    ...
 end.

алг
 нач
    цел N = 20
    целтаб a[1:N]
    цел i, j, k
    нц для i от 1 до N
        ввод a[i]
    кц
    ...
 кон

#include 
 #define N 20
 int main() {
    int a[N];
    int i, j, k;
    for (i = 0; i < N; i++)
        cin >> a[i];
    ...
    return 0;
 }