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

http://znanija.com/task/20561049