Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров:
AN, AN−2, AN−4, …, A1.

Условный оператор не использовать.

program qq;//название
const N=9; // вводим константу
var
A: array[1..N] of integer;//указание переменной и её тип
i: integer;//указание переменной и её тип
begin//начало
writeln(' Введите массив размера ', N, ':');
write(' ');//Вводим массив размера N
for i := 1 to N do//цикл for, тк повторение
read(A[i]);//считываем значение
writeln(' Выводим элементы с нечетными номерами(в обратном порядке): ');//вывод
write(' ');
i := N + 2;
while i > 1 do //Если номер i больше 1,
begin//начало цикла
i := i - 2; //то уменьшаем номер i на 2
write(' ', a[i]) //и выводим элемент массива
end;//конец цикла
end.//конец программы

Составьте блок схему к задаче

Оптические носители:
Достоинства: Легковесный диск, срок хранения до 100 лет в идеальных условиях (срок разложения пластика), распространенный вид носителей, 
Недостатки: Может сломаться, т.к. подвержен царапинам, а следствие возможности потери информации. Если неправильно записать информацию на другом месте может не прочитаться информация, только в том месте, где ее записали.

Магнитные носители:
Достоинства: Удобный, распространенный вид, срок хранения до 100 лет (срок истоньшения магнитного слоя - без подзарядки), много возможностей прочитать информацию.
Недостатки: Подвержен электро-магнитному излучению, не любит падения и встряски, так-же возможна потеря информации при отключении электричества, и резком разрыве в процессе передачи и записи данной информации, громоздкий, нужно специальное оборудование для воспроизведения информации.

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var m:=ReadInteger('m=').ToString.ToSortedSet;
  var n:=ReadInteger('n=').ToString.ToSortedSet;
  if m.Intersect(n).Count>0 then Writeln('Есть одинаковые цифры')
  else Writeln('Нет одинаковых цифр')
end.

Тестовые решения:
m= 12345
n= 76840
Есть одинаковые цифры

m= 123456
n= 789087
Нет одинаковых цифр

А вот примерно так почему-то заставляют писать эту же задачу в школах:

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
  i,m,n:integer;
  found:boolean;
  sm,sn:string;
begin
  Writeln('Введите через пробел два натуральных числа: ');
  Read(m,n);
  Str(m,sm);
  Str(n,sn);
  found:=False;
  for i:=1 to Length(sm) do
    if Pos(sm[i],sn)>0 then begin
      found:=True;
      break
      end;
  if found then Writeln('Есть одинаковые цифры')
  else Writeln('Нет одинаковых цифр')
end.

Тестовое решение:
Введите через пробел два натуральных числа:
5354353 111211
Нет одинаковых цифр