даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательности кратных 3 и не кратных 5

var    n,k,i: integer;   a: array[1..1000] of integer;begin   write ('Введите N: ');   read (n);   for i:=1 to n do begin      write ('Введите ',i,'-й член последовательности: ');      readln (a[i]);      if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0)         then k:=k+1   end;    writeln ('K = ',k)end.---------------------------------------------------Введите N: 5Введите 1-й член последовательности: 12Введите 2-й член последовательности: 9Введите 3-й член последовательности: 7Введите 4-й член последовательности: 15Введите 5-й член последовательности: 30K = 2