Дан одномерный целочисленный массив из n чисел. Найти количество четных элементов кратных к трем и семи.(блок схема не нужна) ДАМ 15 баллов

var n,k,i:integer; a:array[1..1000] of integer; begin write('Введите кол-во элементов: '); readln(n); writeln('Введите элементы'); for i:=1 to n do read(a[i]); k:=0; for i:=1 to n do if not odd(a[i]) then  if (a[i] mod 7 = 0) or (a[i] mod 3 = 0) then inc(k); writeln('Кол-во четных элементов кратных 3 или 7 : ',k); end.