var max,i,n:longint;
    a:array[1..1000000] of longint;
    begin
    read(n);
    for i:=1 to n do
    read(a[i]);
    for i:=1 to n do
    if a[i]>max then max:=a[i];
    write(max,' ');
    for i:=1 to n do
    if a[i]=max then begin write(i);break;end;
    end.
/**************************************************************
	Problem: 1683
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/