var f,g:text;
t: integer;
n,nr,i,x,j:longint;
s:int64;
begin
assign(f,'ssnd.in');reset(f);
assign(g,'ssnd.out');rewrite(g);
readln(f,t);
for j:=1 to t do
        begin
        readln(f,x);
        nr:=1;
        s:=x;
        for i:=1 to x div 2 do
                  if x mod i=0 then
                  begin
                  inc(nr);
                  s:=s+i;
                  end;
        writeln(g,nr,' ',s mod 9973);
        end;
close(f);
close(g);
end.