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.