uses crt;

var i,n: integer;

function shh(n: integer): boolean;

var i,s: integer;

begin

s:=0;

for i:=1 to n-1 do

if n mod i=0 then s:=s+i;

if s=n then shh:=true else shh:=false;

end;

begin

clrscr;

write ('nhap n: ');  readln (n);

writeln ('Cac so hoan hao: ');

for i:=1 to n do if shh(i) then write (i:4);

readln;

end.

$#Trumtinhoc$

uses crt;
var n, i: longint;

function perfect(n: longint): boolean;
var i, sum: longint;
begin
    if n < 2 then exit(false);
    sum:=1;
    for i:=2 to trunc(sqrt(n)) do
        begin
            if(n mod i = 0) and (i * i <> n) then
                begin
                    sum:=sum + i + n div i;
                end
            else if(n mod i = 0) and (i * i = n) then sum:=sum + i;
        end;
    exit(sum = n);
end;

begin
clrscr;
    readln(n);
    for i:=1 to n do
        if perfect(i) then write(i, ' ');
readln;
end.