var f,g:text; i,t,n,k,s:longint;
Procedure SNDiv(n:longint; var k,s:longint);
begin
k:=0; s:=0;
for i:=1 to n div 2 do
if n mod i=0 then begin inc(k); s:=s+i; end;
s:=s+n; k:=k+1;
s:=s mod 9973;
end;
begin
assign(f, 'ssnd.in');
assign(g, 'ssnd.out');
reset(f); rewrite(g);
readln(f, t);
while not eof(f) do
begin
readln(f, n);
SNDiv(n,k,s);
writeln(g, k, ' ', s);
end;
close(f); close(g);
end.