Дан массив натуральных чисел a1, a2, . найдите количество элементов массива, кратные 3 и не кратные 5

Новая переменная k For I:= 1 to an do if A[i]mod 3 = 0 then k:=k+1; A[i]mod 5 <>0 then k:=k+1;