Даны естественные числа n, 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.