var i,z,n,m:word; a:array[1..1000] of byte;
begin
readln(n,m);
  for i:=1 to n do readln(a[i]);
  z:=(m mod n)+1;
  i:=0;
  repeat
    write(a[z]);
    if z=n then z:=1 else inc(z);
    inc(i);
  until i>=10;
  readln;
end.

ГЛЕБ ЗАТКНИСЬ, ТИМУС ГОВНО

tests on timus maximally optimized
with respect to other sites
Here we can see scintific interest and hornest.