Turbo Pascal 20

Функции

1. Дано натуральное число n. Вычислить 1! + 2! + … + n!, используя определенную в примере функцию.
2. Дано натуральное число n. Найти все совершенные числа от 1 до n. Совершенное число – это такое число, которое равно сумме всех своих делителей (т.е. делителей, отличных от самого числа). Реализовать функцию нахождения суммы делителей числа.