var
  n,x,y,i,j,k:longint;
  a:array[1..100] of longint;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  readln(x,y);
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[i]>a[j] then
  begin
    k:=a[i];
    a[i]:=a[j];
    a[j]:=k;
  end;
  writeln(a[n-x+1],' ',a[y]);
end.
/**************************************************************
	Problem: 2086
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/