program z7131;

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

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

Writeln ('vv n');

Readln(n);

For i:=1 to n do Read(A[i]);

writeln ('vv k');

Readln(k);

Inverse(1,n div 2,A);

Inverse(1,n,A);

Writeln('novii masiv:');

for i:=1 to n do write(A[i],'');

readln;

end.