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.
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.