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

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.