Посчитать сумму элементов массива, значения которых находятся в диапазоне от B до С - Turbo Pascal

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

Задан вектор А, в котором n элементов (не менее 15), посчитать сумму элементов массива, значения которых находятся в диапазоне от B до С. Заранее спасибо.

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

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

s:=0;
for i:=1 to n do
if(a[i]>=b)and(a[i]<=c) then s:=s+a[i];

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

Переменная s инициализируется значением 0.
Переменная n инициализируется значением количества элементов в массиве a.
Переменная b инициализируется значением B.
Переменная c инициализируется значением С.
Переменная a[i] инициализируется значением i-го элемента массива a.
Если a[i] больше или равно b и меньше или равно c, то к переменной s прибавляется значение a[i].
По завершении цикла значение переменной s будет содержать сумму элементов массива, значения которых находятся в диапазоне от B до С.