Найти среди них количество чисел, принадлежащих интервалу - Pascal ABC

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

Последовательно вводятся N чисел. Найти среди них количество чисел, принадлежащих интервалу [4 до 12]( задачу нужно решить без использования массива) Заранее спасибо)

Решение задачи: «Найти среди них количество чисел, принадлежащих интервалу»

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

var
  x,n,i,k: integer;
begin
  k:=0;
  write('Г‚ГўГҐГ¤ГЁГІГҐ n: ');
  readln(n);
  for i:=1 to n do
  begin
    write('Г‚ГўГҐГ¤ГЁГІГҐ ',i,'-ГҐ Г·ГЁГ±Г«Г®: ');
    readln(x);
    if x in [4..12] then inc(k);
  end;
  writeln('k = ',k);
end.

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

В данном коде происходит следующее:

Объявляются переменные: x, n, i, k, которые являются целочисленными типами данных.
Переменная k инициализируется значением 0.
Выводится сообщение с запросом ввода числа n.
Запускается цикл for, который выполняется n раз (от 1 до n).
Внутри цикла выводится сообщение с запросом ввода числа i.
Проверяется, принадлежит ли число i диапазону от 4 до 12. Если да, то переменная k увеличивается на 1.
По завершении цикла выводится сообщение с результатом k. Таким образом, данный код подсчитывает количество чисел, принадлежащих интервалу от 4 до 12.