// nhập tầm 10^5 đổ xuống thì chạy cũng ok còn hơn thì phải chờ 1 chút :((

uses crt;
type int = longint;
     ll = qword;
var i,n:int;
    t:ll;
function pow(a,n:int):ll;
begin
    if n = 0 then exit(1);
    if (n and 1) = 1 then exit(a*pow(a,n-1));
    exit(sqr(pow(a,n div 2)));
end;
function T_Uoc(n:int):boolean;
var i,cnt,m:int;
    s:ll;
begin
    i:=3;m:=n;cnt:=0;
    while m mod 2 = 0 do
        begin
            inc(cnt);
            m:=m div 2;
        end;
    s:=pow(2,cnt+1) - 1;
    while true do
        begin
            if i*i > m then break;
            cnt:=0;
            while m mod i = 0 do
                begin
                    inc(cnt);
                    m:=m div i;
                end;
            s:=s * ((pow(i,cnt+1)-1) div (i-1));
            if s > n then exit(false);
            inc(i,2);
        end;
    if m <> 1 then
        s:=s * ((pow(m,2)-1) div (m-1));
    exit(s = 2*n);
end;
begin
    clrscr;
    readln(n);
    for i:=1 to n div 2 do
        if n mod i = 0 then
            begin
                t:=t + i;
                write(i,' ');
            end;
    writeln;
    writeln(t = n);
    for i:=1 to n do
        if T_Uoc(i) then
            write(i,' ');
readln;
end.

// công thức mới tìm được nên thử luôn cho nóng :))

uses crt;
var i,n:longint;
function tu(a:longint):longint;
var i:longint;
begin
   tu:=0;
   for i:=1 to a div 2 do if a mod i=0 then tu:=tu+i; 
end;
begin
clrscr;
   write('n=');readln(n);
   write('Cac uoc cua n: '); 
   for i:=1 to n div 2 do 
      if n mod i=0 then write(i,' '); 
   writeln; 
   if tu(n)=n then writeln('n la so hoan hao') else writeln('n khong la so hoan hao');
   write('Cac so hoan hao tu 1 den n la: ');
   for i:=1 to n do if tu(i)=i then write(i,' ');
readln
end.