Подсчитать количество простых чисел в последовательности - Pascal ABC

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

Вычислить указанные характеристики последовательности, вводимой с клавиатуры ( без массивов и файлов для хранения всей последовательности ), учитывая что элементы последовательности могут быть введены 1 раз. В программе обязательно применение функций с передаваемыми параметрами. Не допускается использования массивов. Задача: Подсчитать количество простых чисел в последовательности, больших заданного числа M Пример: 9 12 32 145 231 75 512 567 112 0 Результат: K = 4

Решение задачи: «Подсчитать количество простых чисел в последовательности»

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

function isPrime(num: integer): boolean;
var j: integer;
begin
  isPrime := true;
  for j := 2 to (num - 1) do
    if num mod j = 0 then begin
      isPrime := false;
      break
    end
end;
 
var n, m, count: integer;
begin
  write('M = '); read(m);
  count := 0;
  read(n);
  while n <> 0 do begin
    if (isPrime(n)) and (n > m) then inc(count);
    read(n);
  end;
  writeln(count);
end.

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

Объявлены следующие переменные: — isPrime — функция, которая будет проверять, является ли число простым — j — переменная, используемая в функции isPrime для проверки делителей числа — n, m, count — переменные, используемые в основном блоке кода
В функции isPrime происходит проверка, является ли число простым. Если число делится на какое-либо число от 2 до (num - 1), то оно не является простым. Функция возвращает значение true, если число простое, и false в противном случае.
В основном блоке кода пользователю предлагается ввести число M, которое будет являться верхним пределом для проверки простых чисел. Затем пользователю предлагается ввести числа, которые будут проверяться на простоту.
Переменная count инициализируется нулем и используется для подсчета количества простых чисел, больших M.
В цикле while происходит проверка каждого введенного числа на простоту с помощью функции isPrime. Если число является простым и больше M, то к переменной count прибавляется единица.
По завершении цикла выводится значение переменной count, которое и является ответом на задачу.