program lol;  
var a,b,s,n,i,z,x,na4alo:integer;
flag:boolean;  
begin  
writeln('vvesti a i b');  
readln(a,b);  
writeln;  
s:=1;  
z:=0;  
na4alo:=a;  
if ((a>1)and(a<b))and(b<10000) then
    begin
    flag:=true;
    while a<=b do
      begin
        begin
        for i:=na4alo to a do
        if a mod i=0 then s:=s+1;
        end;
        begin
        if z<s then
        begin
          z:=s;
          x:=i;
        end;
        end;
      s:=1;
      inc(a);
      end;
    end;
  if flag=true then writeln('y 4isla ',z,' samoe bolshee kol-vo deliteley - ',x) else writeln('nepraviln1e argymenti');  
readln;  
end.