Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи - Pascal

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

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного числа Х. Проверку, является ли сумма делителей данного числа больше заданного числа Х, сделать с помощью процедуры пользователя. Составить программу

Решение задачи: «Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи»

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

Var a,b,i,j,x,s:longint;
Function F(a,b:longint):boolean;
Begin
    if a>b then F:=true else F:=false;
End;
Begin
    write('A = ');readln(a);
    write('B = ');readln(b);
    write('X = ');readln(x);
    For i:=a to b do
    Begin
      s:=1+i;
      For j:=2 to i div 2 do
       if i mod j = 0 then s:=s+j;
      if F(s,x) then write(i,' ');
    End;
    readln;
 End.

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

В этом коде:

Задаются начальные значения переменных a, b, i, j, x, s.
Определяется функция F, которая проверяет, является ли сумма делителей числа больше заданного числа x.
В основной программе происходит ввод значений a, b, x с помощью функции readln.
Используется цикл от a до b, в котором для каждого числа i рассчитывается сумма его делителей s.
Для каждого числа i от 2 до i div 2 проверяется, является ли оно делителем i. Если да, то оно добавляется к сумме s.
Если F(s,x), то число i выводится на экран.
В конце программы происходит чтение еще одного числа с помощью функции readln.