Найти произведение чётных делителей натурального числа - Turbo Pascal

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

Найти произведение чётных делителей натурального числа. Если можно, то дополните, что означает каждый шаг.

Решение задачи: «Найти произведение чётных делителей натурального числа»

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

uses crt;
var n,d,i,p:longint;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0; //вводим число больше 0
if n mod 2<>0 then write('У числа нет четных делителей')//если нечетное, четных делителей нет
else //иначе
 begin
  p:=n; //само число-делитель
  i:=2;//начинаем с 2
  while i<=n div 2 do //до половины числа
   begin
    if n mod i=0 then//если делит
     begin
      writeln(i); //выводим (это для проверки, можно убрать)
      p:=p*i;//считаем произведение
     end;
    i:=i+2; //следующее четное
   end;
  write('Произведение четных делителей=',p);
 end;
readln
end.

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

Этот код написан на Turbo Pascal и предназначен для нахождения произведения всех четных делителей введенного натурального числа.

В начале используется библиотека crt, которая содержит функции для работы с потоком ввода-вывода.
Переменные n, d, i и p инициализируются как longint, что позволяет работать с большими числами.
Функция clrscr() используется для очистки экрана перед вводом числа.
В цикле repeat-until пользователь вводит натуральное число n. Условие до тех пор, пока n больше 0, гарантирует, что введено положительное число.
Если n нечетное, выводится сообщение об отсутствии четных делителей.
В противном случае начинается поиск четных делителей.
Переменная p инициализируется значением введенного числа.
Переменная i устанавливается равной 2 и начинается цикл while i<=n div 2 do. Цикл продолжается до половины введенного числа.
В каждой итерации цикла проверяется, делится ли число n на i без остатка.
Если да, то выводится число i и переменная p обновляется, умножая i на n.
После окончания каждой итерации цикла значение i увеличивается на 2.
По окончании всех итераций цикла выводится сообщение с произведением четных делителей.
Код завершается вызовом функции readln(), чтобы прочитать ввод пользователя.