Program euclid2;
Var
  v:Array[1..10000] Of Longint;
  f,g:Text;
  T,a,b,d,i,j,max:Longint;
Begin
  d:=1;j:=0;max:=0;
  Assign(f,'euclid2.in');Reset(f);
  Assign(g,'euclid2.out');Rewrite(g);
  Readln(f,T);
  For i:=1 To T Do
    Begin
      Read(f,a,b);
      If(a>=b)
        Then max:=a
        Else max:=b;
      d:=1;
      For j:=1 To max Do
        If(a Mod j=0) And (b Mod j=0) And (j>=d)
          Then d:=j;
      Writeln(g,d);
    End;
  Close(f);Close(g);
End.