将数拆分下
在暴搜

这么做可以么？
program lx;
  var n,i,x,j,m:integer;
  begin
    read(n);
      while m=0 do
      begin
        i:=i+1;
        for j:=2 to i do
          if i mod j=0 then  x:=x+(i div j);
        if x=n then begin writeln(i); exit; end
               else x:=0;
      end;
  end.

楼上什么意思，m是什么，麻烦解释一下