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

Найти все совершенные числа (числа, равные сумме всех делителей, включая единицу и исключая само число), не превышающие заданное натуральное число