Даны натуральные числа n, A1, A2, ..., An. Выдать на печать номера и значения элементов последовательности A1, A2, ..., An, имеющих чётные порядковые номера и являющихся нечётными числами.

program zz1;

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

begin

write ('введите количество чисел в последовательности '); / / вводим заданное число n с клавиатуры

read (n);

for i:=1 to n do / / организуем цикл для ввода чисел последовательности

begin

read (a); / / вводим очередное число последовательности

if (i mod 2 = 0) and (a mod 2 = 1) then writeln (' номер элемента = ', i,' его значение = ', a); / /проверяем очередное число, если оно не четное и его номер четный, то выводим его на экран

end;

end.