Program CelMaiMareDivizorComun;
var Intrare,Iesire : text;
    buf : array[1..65000] of byte;
 
procedure DeschideFisiere;
begin
  assign(Intrare,'euclid2.in');
  assign(Iesire,'euclid2.out');
  reset(Intrare);
  rewrite(Iesire);
  settextbuf(Intrare,buf);
end;
 
function cmmdc(a,b : longint) : longint;
begin
  while (a<>0) and (b<>0) do
   if a>b then a:=a mod b else b:=b mod a;
  if a>0 then cmmdc:=a else cmmdc:=b;
end;
 
procedure Proceseaza;
var T,i,a,b : longint;
begin
  readln(Intrare,T);
  for i:=1 to T do begin
    readln(Intrare,a,b);
    writeln(Iesire,cmmdc(a,b));
  end;
end;
 
procedure InchideFisiere;
begin
  close(Intrare);
  close(Iesire);
end;
 
begin
  DeschideFisiere;
  Proceseaza;
  InchideFisiere;
end.