var

a : array[1..1000] of integer;

n, i : integer;

f, g : Text;

begin

Assign(f,'niz01.in'); Assign(g,'niz01.out');

Reset(f); Rewrite(g);

ReadLn(f,n);

for i := 1 to n do Read(f,a[i]);

for i := n downto 1 do WriteLn(g,a[i]);

{ for i := 1 to n do WriteLn(g,a[n-i+1]);}

Close(f); Close(g);

end.