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