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

vars: real;i: integer;a: array [1..11] of real;beginfor i := 1 to 11 doread(a[i]);s := 0;for i  := 1 to 11 doif (a[i] >= 3) and (a[i] <= 6) thens := s + a[i];writeln(s);end.