Найти все числа, не превосходящие n, которые равны произведению своих делителей меньших n - Pascal

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

Найти все числа, не превосходящие n, которые равны произведению своих делителей меньших n (Реализовать функцию, вычисляющую произведение делителей числа).

Решение задачи: «Найти все числа, не превосходящие n, которые равны произведению своих делителей меньших n»

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

function pr_del(n:integer):integer;
var i:integer;
begin
if n<2 then result:=0
else result:=1;
for i:=2 to n div 2 do
if n mod i=0 then result:=result*i
end;
var n,i,k:integer;
begin
write('n=');
readln(n);
k:=0;
for i:=1 to n do
if pr_del(i)=i then
 begin
  k:=1;
  writeln(i);
 end;
if k=0 then write('таких чисел нет');
end.

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

Объявляется функция pr_del с параметром n типа integer и возвращаемым значением типа integer.
Объявляется переменная i типа integer.
Внутри функции проверяется условие: если n меньше 2, то result равно 0, иначе result равно 1.
В цикле от 2 до n деленного на 2 проверяется каждое число на кратность и в случае успешной проверки умножается на result.
В основной программе объявляются переменные n, i и k типа integer.
Запрашивается ввод значения переменной n.
Инициализируется переменная k равная 0.
В цикле от 1 до n вызывается функция pr_del, и если результат функции равен текущему числу i, то переменная k устанавливается в 1 и выводится число i.
Если после цикла k осталась равной 0, то выводится сообщение таких чисел нет.