Số hoàn hảo là những số bằng tổng các ước thực sự của nó.Hãy viết chương trình tìm các số hoàn hảo nhỏ hơn n VD: số 6 có 3 ước thực:1,2,3 6=1+2+3 là số hoàn hảo 9<>1+3 không phải là số hoàn hảo. giúp vs ạ mink đang cần gấp tuần sau kiểm tra rồi

var n,i: integer;
function hh(n: integer): boolean;
var s,i: integer;
begin
    s:=0;
    for i:=1 to n-1 do begin
        if n mod i = 0 then s:=s+i;
    end;
    if s=n then exit(true);
    exit(false);
end;
begin
    readln(n);
    for i:=1 to n-1 do if hh(i) then write(i,' ');
end.