Дан массив из n натуральных чисел. определить количество элементов кратных 3 и не кратных 5

program zz1;

var mas:array[1 ... 20] of integer;

i, k, n:integer;

begin

read (n); / /вводим количество элементов в массиве

for i:=1 to n do

mas[i]:=random (21) + 1; / /записываем числа в массив рандомно от 1 до 20

for i:=1 to n do

write (mas[i],' '); / /выводим числа из массива на экран

for i:=1 to n do

if mas[i] mod 3 = 0 then if mas[i] mod 50 then k:=k+1; / /проверяем, если число из массива делится на 3, но не делится на 5, то считаем его

writeln; / /переходим на новую строку для ответа

write ('количество элементов кратных 3 и не кратных 5=', k); / /выводим ответ

end.