Дан одномерный целочисленный массив из 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.