uses crt;
var i,n,t,ans,k,cnt:longint;
function cntU(n:longint):longint;
var i,cnt,res:longint;
begin
    res:=1;
    i:=2;
    while true do
        begin
            if i*i > n then break;
            cnt:=0;
            while n mod i = 0 do
                begin
                    inc(cnt);
                    n:=n div i;
                end;
            res:=res*(cnt+1);
            inc(i);
        end;
    if n <> 1 then res:=res*2;
    exit(res);
end;
begin
    clrscr;
    repeat
        write('Nhap so N: ');
        readln(n);
    until n > 0;

    write('Cac uoc cua N la: ');
    for i:=1 to n div 2 do
        if n mod i = 0 then
            begin
                inc(cnt);
                write(i,'; ');
            end;
    writeln(n);
    writeln('So uoc cua N la: ',cnt+1);

    ans:=1;t:=1;
    for i:=2 to n-1 do
        begin
            k:=cntU(i);
            if k > t then
                begin
                    t:=k;
                    ans:=i;
                end;
        end;
    writeln('So M la: ',ans);
readln;
end.