Дан массив целых чисел из 12 элементов. найти количество элементов массива являющихся кратными трем и пяти.

Ввести массив 
проверяет условие и выводит количество чисел:
for i:=1 to 12 do 
k=0;
if (A[i] mod 5=0) and (A[i] mod 3=0) then k=k+1;
writeln(k); end.