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

http://znanija.com/task/20561049

var n,k,i:integer;a:array[1..1000] of integer;beginwrite('Введите кол-во элементов: '); readln(n);writeln('Введите элементы');for i:=1 to n doread(a[i]);k:=0;for i:=1 to n doif 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.