Найти все натуральные числа из промежутка от 100 до 300, у которых сумма делителей равна К - Free Pascal

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

найти все натуральные числа из промежутка от 100 до 300, у которых сумма делителей равна К (К вводиться с клавиатуры).

Решение задачи: «Найти все натуральные числа из промежутка от 100 до 300, у которых сумма делителей равна К»

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

for i := 1 to Trunc(Sqrt(n) + 0.0000001) do begin
    if i mod n = 0 then
        WriteLn(i, ' ', n div i); {выводим сразу 2 делителя}
end;

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

В данном коде используется цикл for для перебора всех чисел от 1 до корня из заданного числа n (с шагом 1). В каждой итерации цикла проверяется, является ли текущее число i делителем числа n (проверка i mod n = 0). Если да, то выводится текущее число i и число n/i (два делителя). Названия и значения переменных:

i — текущая итерация цикла
n — заданное число
Trunc(Sqrt(n) + 0.0000001) — округленное значение корня из n с точностью до 15 знаков после запятой
Sqrt(n) — квадратный корень из n
0.0000001 - добавлено для получения точности при вычислении корня (с целью избежать округления ошибки)
WriteLn(i, ' ', n div i) — вывод на экран текущего числа i и числа n/i (два делителя)