Написать программу, которая выводит все нечетные числа из промежутка от К1 до К2 включительно в убывающем порядке - Turbo Pascal

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

Написать программу, которая выводит все нечетные числа из промежутка от К1 до К2 включительно в убывающем порядке.

Решение задачи: «Написать программу, которая выводит все нечетные числа из промежутка от К1 до К2 включительно в убывающем порядке»

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

uses crt;
var
i,n,m:integer;
a:array [1..100] of integer;
begin
  Textcolor (12);
  Writeln('Ваш массив: ');
   For i:=1 to 100 do
   Begin
       A[i]:=random(15);
       write(A[i]:3);
   End;
   writeln;
   textcolor(10);
  Write('От какого элемента ');
  Readln(n);
  write('До какого элемента ');
  readln(m);
  writeln('Ваши нечетные числа');
   For i:=n to m do
       If A[i] mod 2 = 0 then
       Else
       Write('  A[',i,']=',A[i]);
    writeln;
    readln;
end.

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

В данном коде используется язык программирования Turbo Pascal. Он содержит следующие элементы:

uses crt;: Подключение стандартной библиотеки ввода-вывода.
var: Объявление переменных.
i, n, m: integer;: Объявление переменных i, n и m целочисленного типа.
a: array [1..100] of integer;: Объявление массива a целых чисел от 1 до 100.
begin: Начало блока кода.
Textcolor (12);: Изменение цвета текста на 12 (вероятно, это какой-то предопределенный цвет).
Writeln('Ваш массив: ');: Вывод сообщения Ваш массив: и ожидание ввода пользователя.
For i:=1 to 100 do: Цикл For, который выполняется 100 раз, начиная с 1 и заканчивая 100.
Begin: Начало внутреннего цикла For.
A[i]:=random(15);: Присвоение случайного значения переменной A[i] от 0 до 15.
write(A[i]:3);: Вывод значения A[i] с использованием трехзначного формата.
End;: Конец внутреннего цикла For.
WriteLine;: Ожидание ввода пользователя.
textcolor(10);: Изменение цвета текста на 10 (вероятно, это какой-то предопределенный цвет).
Write('От какого элемента ');: Вывод сообщения От какого элемента и ожидание ввода пользователя.
Readln(n);: Чтение ввода пользователя и сохранение его в переменной n.
Write('До какого элемента ');: Вывод сообщения До какого элемента и ожидание ввода пользователя.
readln(m);: Чтение ввода пользователя и сохранение его в переменной m.
writeln('Ваши нечетные числа');: Вывод сообщения Ваши нечетные числа.
For i:=n to m do: Цикл For, который выполняется от n до m с шагом 1.
If A[i] mod 2 = 0 then: Проверка остатка от деления A[i] на 2. Если остаток равен 0, то...
Else: Иначе, то...
Write(' A[',i,']=',A[i]);: Вывод строки A[,i,']=,A[i]` с использованием трехзначного формата.
writeln;: Ожидание ввода пользователя.
readln;: Ожидание ввода пользователя.
end.: Конец блока кода.