program qqq;
uses crt;
const nmax=100;
type TArr=array[1..nmax] of integer;
var a:TArr;
i,j,k,n:integer;
procedure swap(var x,y:integer);
var t:integer;
begin
clrscr;
t:=x;x:=y;y:=t;
end;
procedure inverse (k1,k2:integer; var a:Tarr);
var i:integer;
begin
for i:=k1 to (k1+k2)div 2 do
swap(a[i],a[k2-i+k1]);
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln(k);
inverse(1,k,a);
inverse(k+1,n,a);
inverse(1,n,a);
writeln('Новый массив:');
for i:=1 to n do write(a[i], ' ');
end.