program sohoanhao;
uses crt;
var n,i : longint;
function shh(x : integer) : boolean;
var i,t : integer;
begin
t:=0;
for i:=1 to x-1 do if x mod i = 0 then t:=t+i;
if t=x then shh:=true else shh:=false;
end;
begin clrscr;
write('Nhap so tu nhien n :'); readln(n);
writeln('Cac so hoan hao nhu hon ',n,' la :');
for i:=1 to n-1 do if shh(i)=true then writeln(i:3);
readln
end.

Program Hotboy;

uses crt;

Var S, n,i,j: longint;

Begin

    clrscr;

 Write('Nhap so n tu ban phim ');         Readln(n);

    For i:=1 to n do

    Begin

      S:=0;

      For j:=1 to i do if (i mod j = 0 ) then S:=S+j;

      If S = 2*i then write(i:3:6,'  ');

    End;

    Readln

End.