Напишите программу которая вводит натуральное число N и находит все совершенные числа в диапазоне от 1 до Npascal

Предыдущий
вопрос Следующий
вопрос

Ниже представлена программа на Python, которая находит все совершенные числа в диапазоне от 1 до введенного числа N:

def find_perfect_numbers(N):
perfect_numbers = []
for num in range(1, N+1):
divisors = []
for i in range(1, num):
if num % i == 0:
divisors.append(i)
if sum(divisors) == num:
perfect_numbers.append(num)
return perfect_numbers
N = int(input("Введите натуральное число N: "))
perfect_numbers = find_perfect_numbers(N)
if len(perfect_numbers) == 0:
print("Совершенных чисел нет в указанном диапазоне")
else:
print("Совершенные числа в диапазоне от 1 до", N, ":", perfect_numbers)

Пример работы программы:

Введите натуральное число N: 100
Совершенные числа в диапазоне от 1 до 100 : [6, 28]