function Summ(ai:integer):integer;
var  j,k:integer;
begin
     if ai=1
      then Summ:=1
      else
       begin
         k:=0;
          for j:=1 to ai do
           if (ai mod j)=0 then
            k:=k+j;
             Summ:=k;
       end;
end;
var  n,m,i,sum,t,e:integer;
begin
     Write('M = ');
      Readln(m);
       Write('N > M = ');
        Readln(n);
         Writeln;
     sum:=0; t:=0;
      for i:=m to n do
       begin
         e:=Summ(i);
          if e>sum then
           begin
             t:=i;
              sum:=e;
           end
       end;
     Writeln('Cislo = ',t);
      Writeln('Summa deliteley = ',sum);
     Readln;
end.