Program Suma_nd;
var fi,fo : text;
    n,i,j,suma : longint;
    a,k : longint;
begin
     assign(fi,'ssnd.in'); reset(fi);
     assign(fo,'ssnd.out'); rewrite(fo);
     readln(fi,n);
     for i:=1 to n do  begin
                       read(fi,a);
                       suma:=0; k:=0;
                       for j:=1 to a div 2 do
                                       if a mod j = 0 then begin
                                                           k:=k+1;
                                                           suma:=suma+j;
                                                           end;
                       k:=k+1;
                       suma:=suma+a;
                       writeln(fo,k,' ',suma);
                       end;
     close(fi);
     close(fo);
end.