Найти количество элементов массива входящих в интервал от [5,10] Язык программирования паскаль

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке программирования Паскаль:

program CountElementsInRange;
var
arr: array[1..10] of integer; // объявление массива из 10 элементов
i, count: integer; // переменные для цикла и подсчета количества элементов
begin
count := 0; // начальное значение счетчика
// заполнение массива произвольными значениями
for i := 1 to 10 do
begin
arr[i] := random(15) + 1;
writeln(arr[i]);
end;
// подсчет элементов входящих в интервал [5,10]
for i := 1 to 10 do
begin
if (arr[i] >= 5) and (arr[i] <= 10) then
count := count + 1;
end;
writeln('Количество элементов массива, входящих в интервал [5,10]: ', count);
end.

Данная программа заполняет массив arr из 10 элементов случайными числами от 1 до 15, выводит его значения, а затем считает количество элементов массива, которые входят в интервал [5,10].