PROGRAM EUCLID;
VAR r,d,i,t:longint; F,G:TEXT;
BEGIN
    ASSIGN(F,'euclid2.IN');RESET(F);
    ASSIGN(G,'euclid2.OUT');REWRITE(G); readln(f,t);
    for t:=t downto 1 do begin
     READ(F,d,i);
     r:=d mod i;
     WHILE R <>0 DO BEGIN
      d:=i;
      i:=R;
      R:= d MOD i;
      END;
      WRITEln (G,i);end;
      CLOSE(F);
      CLOSE(G);
END.