var v:array[1..2,1..50] of longint;
    st:array[0..50] of byte;
    n,p,i:byte;
    prod:real;
    ok:boolean;
    f:text;

procedure citire;
var i:byte;
begin
  assign(f,'aliens.in');
  reset(f);
  readln(f,n);
  for i:=1 to n do
    readln(f,v[1,i],v[2,i]);
  close(f);
end;

begin
  citire;
  p:=1; ok:=true;
  prod:=1; st[1]:=0;
  assign(f,'aliens.out');
  rewrite(f);
  while ok and (st[p]<n) do
    begin
      inc(st[p]);
      if (v[1,p]/v[2,p])*prod>prod then
        begin
          prod:=prod*(v[1,p]/v[2,p]);
          if prod=trunc(prod) then ok:=false
          else begin inc(p); st[p]:=st[p-1]; end;
        end;
    end;
  write(f,trunc(prod));
  close(f);
end.