Pascal :

var a:array[1..1000]of longint;
  i:longint;
begin
     for i:=1 to 10 do read(a[i]);
     write(a[10]);
     for i:=9 downto 1 do write(' ',a[i]);
end.