Дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5

program zz1;

const n = 7; / / задаем количество элементов в массиве

R:array [1 ... n] of integer = (4, - 15, 15, 6, - 7, 9, - 6); / / задаем последовательность чисел

var i:integer; / / задаем переменные целого типа

begin

write (' элементы кратные трем и не кратные пяти ');

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

begin

if (R[i] mod 3 = 0) and (R[i] mod 5 0) then / / проверяем, если элемент массива делится на три и не делится на пять, то

write (R[i], ' '); / / выводим ответ

end;

end.