Дан целочисленный массив размера N (> 2). Не используя условный оператор удалить из массива все элементы с четными ном - Pascal ABC

Формулировка задачи:

Дан целочисленный массив размера N (> 2). Удалить из массива все элементы с четными номерами Условный оператор не использовать. Спасибо)

Решение задачи: «Дан целочисленный массив размера N (> 2). Не используя условный оператор удалить из массива все элементы с четными ном»

Листинг программы

var a: array [1..100] of integer;
    i, j, n: integer;
begin
  randomize;
  n := 0;
  while n <= 2 do begin
    write('N = ');
    read(n);
  end;
  for i := 1 to n do begin
    a[i] := random(11);
    write(a[i], ' ');
  end;
  writeln;
  i := 2;
  for i := 2 to n do begin
    for j := i to n - 1 do
      a[j] := a[j + 1];
  end;
  if n mod 2 = 0 then
    for i := 1 to n div 2 do
      write(a[i], ' ')
  else
    for i := 1 to n div 2 + 1 do
      write(a[i], ' ')
end.

Объяснение кода листинга программы

Объявлены переменные: — a: массив для хранения целых чисел размера N; — i, j: индексы для перемещения по массиву; — n: счетчик количества чисел в массиве.
Задается начальное значение n = 0.
В цикле while происходит запрос на ввод значения N и его сохранение в переменной n. Цикл выполняется до тех пор, пока N не станет больше 2.
В цикле for заполняются элементы массива a случайными целыми числами от 0 до 10.
Выводится строка с пробелами и значениями элементов массива a.
Цикл for i := 2 до n выполняет перестановку элементов массива a, начиная с элемента с индексом i и до конца массива, чтобы удалить четные числа.
В условии if проверяется, является ли n четным числом. Если это так, то в цикле for i := 1 до n div 2 выводятся четные числа. В противном случае, в цикле for i := 1 до n div 2 + 1 выводятся все числа, начиная с первого и до последнего четного.