Напишите программу, которая в последовательности натуральных чисел находит количество четных чисел кратных 7. вход: программа получает на вход последовательность натуральных чисел, заканчивающихся 0. выход: программа должна вывести одно число-количество четных чисел кратных 7. входные данные 35 70 45 9 105 0 выходные данные 1

Var
  A: array of integer;
  i, num, len, amount: integer;
begin
  amount := 0; len := 1; i := 0; num := -1;
  write('Введите последовательность чисел -> ');
  repeat
    SetLength(A, len);
    read(A[i]);
    num := A[i];
    i += 1;
    len += 1; // длина массива
  until (num = 0);
  for i := 0 to High(A) do
    if (A[i] mod 7 = 0) and (A[i] mod 2 = 0) and (A[i] <> 0) then
        amount += 1;
  write('Количество чётных чисел, кратных 7: ', amount, '.');
end.