uses crt;
var i,n,m,d,j,max:longint;
begin
clrscr;
max:=0;
write('N=');readln(n);
write('cac uoc cua N la:');
for i:=1 to n do if(n mod i=0)then begin inc(d);write(i,' ');end;
writeln;
write('uoc cua N la:',d);
writeln;
for i:=1 to n-1 do
begin
d:=0;
for j:=1to i do if(i mod j=0)then
begin
inc(d);
if(d>max)then
begin
max:=d;
m:=i;
end;
end;
end;
write('so M la:',m);
readln;
end.
