program bai_giai;
uses crt;
var N,i,j,dem,M,max:integer;
begin
    clrscr;
    repeat
        write('Nhap so N: ');  readln(n);
        if n<=0 then writeln('N duong (N > 0). Nhap lai!');
    until n>0;
    write('Cac uoc cua N la: ');
    dem:=0;
    for i:=1 to n do
        if n mod i=0 then
            begin
                write(i,' ');
                dem:=dem+1;
            end;
    writeln;
    writeln('So uoc cua N la: ',dem);
    M:=1;  max:=1;
    for i:=2 to n do
        begin
            dem:=0;
            for j:=1 to i do
                if i mod j=0 then dem:=dem+1;
            if dem>max then
                begin
                    max:=dem; M:=i;
                end;
        end;
    write('So M la: ',M);
    readln;
end.

uses math;
var m,n,i,d,l,r,dma,ma:longint;
begin
repeat
write('Nhap so N: ');readln(n);
if n < 1 then writeln('Nhap so N: (Yeu cau nhap lai so N)');
until n>0;
write('Cac uoc cua N la: ');
for i := 1 to n do
if n mod i = 0 then
  begin
    write(i,';');
    inc(d);
  end; writeln;
writeln('So uoc cua N la: ',d);
m :=1;ma:=-maxlongint;
for l := 2 to n do
 begin
    dma:=0;
    for r := 1 to i do
      if (l mod r = 0) then dma := dma + 1;
    if dma > ma then begin ma :=max(ma,dma); m := l; end;
 end;
writeln('So M la: ',m);
readln;
end.