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.