Program CelMaiMareDivizorComun;   
var Intrare,Iesire : text;   
  
procedure DeschideFisiere;   
begin  
  assign(Intrare,'euclid2.in');   
  assign(Iesire,'euclid2.out');   
  reset(Intrare);   
  rewrite(Iesire);   
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.