uses crt;
var n,i,max,min,ln,nn:longint;
a:array[0..1000000]of longint;
begin
clrscr;
read(n); max:=-999999999; min:=999999999;
for i:=1 to n do
begin
read(a[i]);
if a[i]>max then begin
max:=a[i];
ln:=i;
end;
if a[i]<min then begin
min:=a[i];
nn:=i;
end;
end;
writeln(max,' ',ln);
writeln(min,' ',nn);
readln;
end.