Массив содержит 11 целых чисел. вычислить сумму тех элементов массива, значения которых принадлежат промежутку [3, 6]. pascal. не знаю как сделать цикл, чтобы он считал элементы массива с промежутка

Var
s: real;
i: integer;
a: array [1..11] of real;
begin
for i := 1 to 11 do
read(a[i]);
s := 0;
for i  := 1 to 11 do
if (a[i] >= 3) and (a[i] <= 6) then
s := s + a[i];
writeln(s);
end.