Напишите программу, которая в последовательности натуральных чисел находит количество четных чисел кратных 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.