Что-то я уже видел подобное на нашем форуме. Итак, действуем:
1. Цикл от 1 до A. (по I)
2. Берем число I.
3. Если I четное, то E := I div 2.
Если нечетное, то E := I div 3. (тут можно оптимизировать)
4. Обнуляем S.
5. Цикл от 1 до E. (по J)
6. Если I mod J = 0, тогда S += J.
7. Конец цикла по J.
8. Если I = S, выводим на экран. Перед нами число, равное сумме своих делителей.
9. Конец цикла по I. На всяйкий случай проверь. Пишу в состоянии глубокого душевного кризиса, + тока что проснулся + паскаля под рукой нет =)
