var m: array [1..10000] of integer; i,n: integer; begin readln(n); for i := 1 to n do read(m[i]); for i := 1 to n do write(m[i], ' '); writeln; for i := n downto 1 do write(m[i],' ') end.