Pascal :

var
  n,i,m:longint;
  a:array[1..10000] of longint;
begin
  readln(n,m);
  for i:=1 to n do read(a[i]);
  writeln(a[n-m+1]);
end.