Модуль: Pascal. Подпрограммы: процедуры и функции - 2

Совершенным называется число, равное сумме всех своих делителей, меньших его самого (например, число 6=1+2+3). Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным. Используйте  функцию для нахождения суммы делителей числа и логическую функцию для проверки, является ли число совершенным или нет.

Входные данные: Входная строка содержит натуральное число N .

Выходные данные: Если число N – совершенное, программа должна вывести слово 'YES', иначе – слово 'NO'.

Вставьте недостающие фрагменты кода

var N: longint;

function SumOfDivisions(n: integer): integer;  

end;

function isPerfectNumber(n: integer): boolean;  

end;

begin
    read(N);  

end.