Uses crt;
Var n,m:longint;
f,vt:array[1..100000] of longint;
procedure nhap;
Var fi:text;
i,j,t:longint;
Begin
assign(fi,'CHONSO.INP');
reset(fi);
read(fi,n,m);
For i:=1 to n do
Begin
readln(fi,f[i]);
vt[i]:=i;
end;
For i:=1 to n-1 do
For j:=i+1 to n do
If f[j]>f[i] then
Begin
t:=f[i];
f[i]:=f[j];
f[j]:=t;
t:=vt[i];
vt[i]:=vt[j];
vt[j]:=t;
end;
close(fi);
end;
procedure xuat;
Var fo:text;
Begin
assign(fo,'CHONSO.OUT');
rewrite(fo);
Write(fo,vt[m]);
Write(fo,' ');
Write(fo,f[m]);
close(fo);
end;
Begin
nhap;
xuat;
end.

uses crt;
type mang=array[1..100] of integer;
var v,r:text; 
 m,n,i,j,tam,l:integer;
a:array[1..100] of integer;

function tim(var n,m:integer;a:mang):integer;
var i,j,tam:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]<a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
tim:=a[m];
end;
begin
assign(v,'CHONSO.inp');
reset(v);
readln(v,n);
for i:=1 to n do readln(v,a[i]);
assign(r,'CHONSO.out');
rewrite(r);
for l:=1 to n do
 if a[l]=tim(n,m,a) then begin write(r,l,' ',a[i]);break;end;
close(r);
end.