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

program zz1;
const n = 7; // задаем количество элементов в массиве
R:array [1..n] of integer=( 4, -15, 15, 6, -7, 9, -6 ); // задаем последовательность чисел
var i:integer; // задаем переменные целого типа
begin
write( элементы кратные трем и не кратные 5 );
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
begin
if (R[i] mod 3 = 0) and (R[i] mod 5 lt;gt; 0) then // проверяем, если элемент массива делится на три и не делится на 5, то
write(R[i], ); // выводим ответ
end;
end.