Pascal :

var n,x,h,i:integer;a:array[0..1000]of integer;
begin
 readln(n);
 for i:=1 to n do read(a[i]);
 readln(x);
 h:=a[x];
 for i:=x+1 to n do a[i-1]:=a[i];
 a[n]:=h;
 for i:=1 to n-1 do write(a[i],' ');
 writeln(a[n]);
end.