PRGORAM CHU7_4；
VAR N，K，I：INTEGER；
A：ARRAY[1..40]OF INTEGER；
PROCEDURE FIND(X：INTEGER)；
VAR S，I1，J1：INTEGER；
P：BOOLEAN；
BEGIN
I1:=0；
P:=TRUE；
WHILE P DO
BEGIN
I1:=I1+1；
S:=0；
FOR J1:=1 TO N DO
IF A[J1]>A[I1]THEN S:=S+1；
IF(S=X-1)THEN
BEGIN
WRITELN(A[I1])；
P:=FALSE
END；
END
END；
BEGIN
READLN(N，K)；
FOR I:=1 TO N DO
READ(A[I])；
FIND(K)；
FIND(N-K)；
END.
输入：
10 4
12 34 5 65 67 87 7 90 120 13
输出：67 34