6. Определите, есть ли в линейном массиве хотя бы один элемент, который является нечетным числом, кратным 7. Если да, то следует вывести его номер.

Объявим массив с 10 элементами типа integer. Запросим ввод с клавиатуры 10 чисел. Далее в цикле проверим каждый элемент на нечётность p[i] mod 2 <> 0 и кратность 7 p[i] mod 7 = 0. mod вычисляет остаток от деления. Если число кратно 7, значит остаток от деления на 7 должен быть равен нулю.

var p: array[1..10] of integer;
begin
  
 writeln('Введите числа');
 for var i := 1 to 10 do
  read(p[i]);
 
 for var i := 1 to 10 do
  if (p[i] mod 2 <> 0) and (p[i] mod 7 = 0) then
    writeln('Элемент под номером ', i);
end.