Module: Chương trình con: thủ tục và hàm - 2

Problem

Số hoàn hảo là số bằng tổng tất cả các ước của nó nhỏ hơn chính nó (ví dụ: số 6=1+2+3). Viết chương trình lấy một số tự nhiên N và xác định xem số N có phải là số hoàn hảo hay không. Sử dụng  một hàm để tìm tổng các ước của một số và một hàm boolean để kiểm tra xem số đó có hoàn hảo hay không.

Đầu vào: Chuỗi đầu vào chứa một số tự nhiên N .

Đầu ra: Nếu một số N – hoàn hảo, chương trình sẽ xuất ra từ 'YES', nếu không thì – từ 'KHÔNG'.

var N: longint;

function SumOfDivisions(n: integer): integer;  

end;

function isPerfectNumber(n: integer): boolean;  

end;

begin
    read(N);  

end.