Напишите программу, которая в последовательности целых чисел определяет количество четных чисел кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести одно число: количество четных чисел кратных 7
var
n, k, i, a: Integer;
begin
readln(n);
if n > 1000 then begin
writeln('False');
exit;
end;
k:=0;
for i := 1 to n do
begin
readln(a);
if (a <= 30000) and (a>=-30000) and (a mod 7 = 0) and (a mod 2 = 0)
then begin
k:=k+1;
end;
end;
writeln(k);
end.