написания, пишущую на языке Паскаль, которая будет искать числа в интервале от 33333 до 55555 и проверять, кратны

Задача: Проверка кратности сумме простых делителей

Описание: Для решения данной задачи на языке Паскаль, нам понадобится создать процедуру, которая будет искать числа в указанном интервале и проверять их кратность сумме простых делителей. Простые делители числа - это делители, являющиеся простыми числами.

Процедура должна работать следующим образом:
1. Создайте процедуру `CheckMultiples`, которая принимает параметры `start` и `end` - начальное и конечное значения интервала, и выводит на экран числа, у которых сумма простых делителей больше 250.
2. В процедуре `CheckMultiples`, используйте цикл `for` для перебора всех чисел в заданном интервале.
3. Для каждого числа в интервале, создайте переменную `divSum` для хранения суммы простых делителей.
4. Используйте еще один цикл `for` для перебора всех чисел от 2 до половины текущего числа. Если текущее число делится на число из этого диапазона без остатка, и это число является простым, добавьте его к `divSum`.
5. Если `divSum` больше 250, выведите текущее число и `divSum` на экран.

Пример использования:

program FindMultiples;

var

  start, finish: integer;



procedure CheckMultiples(start, finish: integer);

var

  num, i, j, divSum: integer;

  isPrime: boolean;



begin

  writeln('Числа, у которых сумма простых делителей больше 250:');

  for num := start to finish do

  begin

    divSum := 0;

    for i := 2 to num div 2 do

    begin

      if (num mod i = 0) then

      begin

        isPrime := true;

        for j := 2 to i div 2 do

        begin

          if (i mod j = 0) then

          begin

            isPrime := false;

            break;

          end;

        end;

        if (isPrime) then

          divSum := divSum + i;

      end;

    end;

    if (divSum > 250) then

      writeln(num, ' - ', divSum);

  end;

end;



begin

  start := 33333;

  finish := 55555;

  CheckMultiples(start, finish);

end.

Совет: При решении данной задачи на языке Паскаль, важно разбить ее на подзадачи и использовать вложенные циклы для проверки кратности и поиска простых делителей.

Дополнительное задание: Найдите все числа в интервале от 33333 до 55555, у которых сумма простых делителей больше 250.