Lập trình pascal: tìm các ước của n mà tổng của chúng bằng n

[Hpdong1990 (Huỳnh phú đông)]

Cho trước dãy số gồm các chữ số là ước của số nguyên dương n.
Tìm các chữ số mà tổng của chúng bằng n

[Nguyen_Van_Vi (Kudo Vĩ)]

Số đó gọi là Perfect đó bạn!

function perfect(n:word)boolean;
begin
s:=0; perfect:=false;
for i:=1 to n do if n mod i =0 then s:=s+i;
if s=2*n then perfect:= true;
end;