Найти р!, где р – каждое третье простое число в диапазоне от n1 до n2 - Turbo Pascal

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

Найти р!, где р – каждое третье простое число в диапазоне от n1 до n2 (функциями оформить определение факториала и проверку, является ли число простым). Объясните пожалуйста код программы.

Ребят помогите пожалуйста с этим заданием.

Решение задачи: «Найти р!, где р – каждое третье простое число в диапазоне от n1 до n2»

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

  i:=n1 or 1;
  while i<=n2 do begin
    if prost(i) then begin
      Inc(k); if k=3 then begin k:=0; WriteLn(i,' ',faktorial(i)); end;
    end;
    Inc(i,2);
  end;

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

В первой строке кода значение переменной i устанавливается равным n1 или 1, в зависимости от того, является ли n1 нулевым или не нулевым. Это необходимо для того, чтобы начать цикл while с первого числа в диапазоне от n1 до n2.
Цикл while выполняется, пока значение переменной i не станет больше или равно значению переменной n2.
Внутри цикла while проверяется, является ли текущее значение переменной i простым числом. Если это так, то выполняется следующая часть блока if:
- Переменная k увеличивается на единицу.
- Если k равно 3, то переменная k сбрасывается обратно на 0, и выводится на экран текущее значение переменной i, за которым следует пробел, а затем выводится факториал текущего значения переменной i.
- После этого значение переменной i увеличивается на 2.
Если текущее значение переменной i не является простым числом, то блок if пропускается, и значение переменной i увеличивается на единицу.
После завершения внутреннего цикла while значение переменной i будет на единицу больше значения переменной n2.