Module: Alt programlar: prosedürler ve işlevler - 2

Problem

Mükemmel sayı, kendisinden küçük tüm bölenlerinin toplamına eşit olan bir sayıdır (örneğin, 6=1+2+3 sayısı). Bir doğal sayıyı N  alan ve sayının N mükemmel olup olmadığını belirleyen bir program yazın. Kullan  bir sayının bölenlerinin toplamını bulan bir işlev ve sayının mükemmel olup olmadığını kontrol eden bir boolean fonksiyonu.

Giriş: Giriş dizesi bir doğal sayı içeriyor N .

Çıktı: Eğer bir sayı N – mükemmel, program 'EVET' kelimesini vermelidir, aksi takdirde - -; 'HAYIR'

var N: longint;

function SumOfDivisions(n: integer): integer;  

end;

function isPerfectNumber(n: integer): boolean;  

end;

begin
    read(N);  

end.