program euclid2;
	
 
	
var     intrare,iesire:text;
	
        t:longint;
	
        a,b:longint;
	
        i,aux:longint;
	
		r:integer;
	
 
	
 
	
BEGIN
	
        assign(intrare,'euclid2.in');
	
        reset(intrare);
	
 
	
        assign(iesire,'euclid2.out');
	
        rewrite(iesire);
	
 
	
        readln(intrare,t);
	
 
	
        for i:=1 to t do
	
                begin
	
                        readln(intrare,a,b);
	
                        repeat
	
                                if a<b then
	
                                        begin
	
                                                aux:=a;
	
                                                a:=b;
	
                                                b:=aux;
	
                                        end;
	
                                r:=a mod b;
	
                                a:=b;
	
                                b:=r;
	
                        until r=0;
	
 
	
                        writeln(iesire,a);
	
                end;
	
 
	
        close(intrare);
	
        close(iesire);
        
END.