uses crt;
var cn,tv,dp,kq1: real;
    n,i: integer;
    a: array[1..100000] of real;
begin
clrscr;
    write('N = ');
    readln(n);
    readln(cn,tv);
    kq1:=cn;
    a[1]:=tv/cn;
    for i:=2 to n do begin
        readln(cn,tv);
        if (kq1<cn) then kq1:=cn;
        a[i]:=tv/cn;
    end;
    dp:=1;
    for i:=2 to n do if a[1]<a[i] then begin
        a[1]:=a[i];
        dp:=i;
    end;
    writeln(kq1:0:0);
    write(dp:0:0);
    readln
end.

uses crt;
var A, B : array [1 .. 100] of real;
    i, N, j : integer;
    
begin
clrscr;
write('N = '); readln(N);
for i := 1 to N do
    begin
        read(A[i], B[i]);
        B[i] := B[i] / A[i];
    end;

j := 1;
for i := 1 to N do
    begin
        if A[i] > A[1] then A[1] := A[i];
        if B[i] > B[1] then 
            begin
                B[1] := B[i];
                j := i;
            end;
    end;
    
writeln(A[1] : 0 : 0);
writeln(j);

readln
end.