program qqq;
const n=10;
function qdelit(q:integer):integer;
var j,i:integer;
begin j:=0;
for i:=2 to q div 2 do
if q mod i=0 then inc(j);
qdelit:=j;
end;
function SearchNumb(q:integer):integer;
var s,i,max,x:integer;
begin
max:=0;
for i:=1 to q do begin
readln(x);
s:=Qdelit(x);
if s>max then begin max:=s;
SearchNumb:=x;end;
end;
end;
begin
writeln('Число с максимальным количеством делителей',SearchNumb(n));
end.