Напечатать индексы элементов массива, значения которых не входят в заданный диапазон - Pascal

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

дан одномерный массив, напечатать индексы элементов, значения которых не входят в заданный диапазон

Решение задачи: «Напечатать индексы элементов массива, значения которых не входят в заданный диапазон»

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

const
  n = 10;
 
var
  x: array[1..n]of integer;
  i, a, b: integer;
 
begin
  randomize;
  for i := 1 to n do 
  begin
    x[i] := random(n);
    write(x[i]:5);
  end;
  writeln;
  write('Введите диапазон A<=B: ');
  readln(a, b);
  for i := 1 to n do 
    if (x[i] < a) or (x[i] > b) then 
      write(i:5);
  readln;
end.

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

Объявляется константа n со значением 10, обозначающая длину массива.
Объявляются переменные: массив x целых чисел от 1 до n, переменные i, a и b типа целого для работы с циклами и диапазоном.
Генерируется случайное заполнение массива x числами от 0 до n-1, и каждый элемент массива выводится на экран с отступом в 5 символов.
Пользователю предлагается ввести диапазон, вводятся значения a и b.
Затем проверяется каждый элемент массива на то, входит ли его значение в заданный диапазон. Если значение не входит в этот диапазон, то выводится индекс этого элемента с отступом в 5 символов.
Программа ждет ввода пользователя перед завершением. Этот код на языке Pascal создает массив случайных значений, выводит его на экран, просит пользователя ввести диапазон значений и затем выделяет индексы элементов массива, значение которых не входит в указанный диапазон.