Определить, есть ли в массиве числа, делящееся на 7 и не делящееся на 4 - Pascal

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

Help Дан линейный массив A[1..N], содержащий целые числа. Определить, имеется ли в массиве хотя бы одно число, делящееся на 7 и не делящееся на 4 и найти индекс пер-вого из них. Посчитать количество чисел, делящихся на 7 и не делящихся на 4 в этом массиве.

Решение задачи: «Определить, есть ли в массиве числа, делящееся на 7 и не делящееся на 4»

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

const N = 10;
var a: array[1..N] of integer;
 
var i,s: integer ;
begin
  writeln( 'Заполните массив(',N,')' );
  for i:= 1 to N do begin
    readln(a[i]);
  end;
  
  for i:= 1 to N do begin
    if (a[i] mod 7 = 0) AND (a[i] mod 4 <> 0) then begin
      writeln('Index first: ',i);
      break;
    end;
  end;
  
  s := 0;
  for i:= 1 to N do begin
    if (a[i] mod 7 = 0) AND (a[i] mod 4 <> 0) then begin
      s := s + 1;
    end;
  end;
  writeln( 'Count: ',s);
end.

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

Создаётся константа N, которая определяет количество элементов в массиве.
Создаётся переменная a, которая представляет собой массив из N элементов типа integer.
Создаются две переменные i и s, которые будут использоваться для итерации по массиву и подсчета найденных чисел соответственно.
Выводится сообщение «Заполните массив(N)».
С помощью цикла for происходит итерация по элементам массива от 1 до N. В каждой итерации считывается значение элемента массива с помощью функции readln().
В следующей итерации цикла for происходит проверка условия (a[i] mod 7 = 0) AND (a[i] mod 4 <> 0). Если это условие выполняется, то выводится сообщение «Index first: i» и цикл прерывается с помощью оператора break.
После завершения первой итерации цикла for, переменной s присваивается значение 0.
Во второй итерации цикла for происходит повторная проверка условий из предыдущего шага. Если условие выполняется, то к переменной s прибавляется значение 1.
По завершении второй итерации цикла for, выводится сообщение «Count: s».
Код завершается.