В одномерном массиве найти количество элементов, кратных 5, и принадлежащих интервалу [10..50] - Pascal

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

Найти количество элементов, кратных 5 и принадлежащих интервалу 10<=F[i]<=50, в массиве F(14). Только без рандомайза.

Решение задачи: «В одномерном массиве найти количество элементов, кратных 5, и принадлежащих интервалу [10..50]»

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

const m = 14;
var f: array [1..m] of integer;
    i, k: integer;
begin
  k := 0;
  writeln('Enter array:');
  for i := 1 to m do
    begin
      write('F[', i:2, '] = ');
      readln(f[i]);
      if (f[i] >= 10) and (f[i] <= 50) and (f[i] mod 5 = 0) then inc(k)
    end;
  write('Quantity of elements, multiple 5, in range of [10..50]: ', k);
  readln
end.

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

Переменная m инициализируется значением 14.
Создается переменная f типа array [1..m] of integer.
Объявляются две переменные i и k, которые будут использоваться для цикла.
Выводится сообщение Enter array:.
Запускается цикл for, который проходит по всем элементам массива f от 1 до m.
Внутри цикла выводится сообщение F[, i:2, '] = ' для каждого элемента массива f[i].
Считывается значение, введенное пользователем.
Проверяется условие: f[i] >= 10 и f[i] <= 50 и f[i] mod 5 = 0. Если это условие выполняется, то переменная k увеличивается на 1.
По завершении цикла выводится сообщение Quantity of elements, multiple 5, in range of [10..50]:, k.
Вызывается функция readln для чтения ввода пользователя.