Вычислить количество элементов массива, не принадлежащих интервалу (a, b) - Pascal ABC

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

Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислить: количество элементов массива, не принадлежащих интервалу (a, b):

Никто не в курсе ?)

Решение задачи: «Вычислить количество элементов массива, не принадлежащих интервалу (a, b)»

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

uses crt;
var n,s,i:integer;
     a,b:real;
     arr:array[1..20] of real;
begin
 write ('N = '); readln(n);
 write ('Input array: ');
 for i:=1 to n do read(arr[i]);
 write ('a = '); readln(a);
 write ('b = '); readln(b);
 s:=0;
 for i:=1 to n do  
  if (arr[i]>a) and (arr[i]<b) then s:=s+1;
 write ('Kolichestvo elementov prinadlezhashih intervaly (a;b) ',s);
end.

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

Программа начинается с объявления переменных: — n - для хранения количества элементов в массиве; — s - для хранения количества элементов, принадлежащих интервалу; — i - для использования в циклах; — a, b - для задания интервала; — arr - для хранения массива.
Пользователю предлагается ввести количество элементов в массиве (n), после чего программа переходит к следующему этапу.
Пользователю предлагается ввести элементы массива (arr), которые будут сохраняться в массиве arr.
Пользователю предлагается ввести значения a и b, которые будут использоваться для определения интервала.
Переменная s инициализируется значением 0. Эта переменная будет использоваться для подсчета количества элементов, удовлетворяющих условию.
Происходит цикл по всем элементам массива arr.
Внутри цикла проверяется, принадлежит ли текущий элемент интервалу (a, b). Если да, то к переменной s прибавляется единица.
После завершения цикла программа выводит на экран количество элементов, удовлетворяющих условию. Таким образом, задача программы - подсчитать количество элементов массива, которые принадлежат интервалу (a, b).