program jbg;
 var n, i, max, mesto, a: integer;
begin
 read(n, max);
 mesto:= 1;
 for i := 2 to n do
  begin
    read(a);
    if a >= max then
     begin
       max:=a;
       mesto:= i;
     end;
  end;
 writeln(max, mesto);
end.

3.26

program jbg;
 var n, i, a, min, max, brojmin, brojmax: integer;
begin
  read(n, min);
  max:= min;
  brojmin:=1;
  brojmax:=1;
  for i:= 1 to n-1 do
   begin
     read(a);
     if a = min then
      brojmin:= brojmin+1;
     if a = max then
      brojmax:= brojmax + 1;
     if a < min then
      begin
        min:= a;
        brojmin:= 1;
      end;
     if a > max then
      begin
        max:= a;
        brojmax:= 1;
      end;
   end;
  writeln(min, brojmin, max, brojmax);
end.