NEERC/zero/zero_gk.dpr

   1 {$q-,r-,o+}\r
   2 \r
   3 uses\r
   4     sysutils;\r
   5 \r
   6 const\r
   7     max_n = 100000;\r
   8     max_a = 1000000000000000;\r
   9     radix = 1000000000;\r
  10 var\r
  11     i, n: longint;\r
  12     a: array [1..max_n] of int64;\r
  13 begin\r
  14     assign(input, 'zero.in'); reset(input);\r
  15     assign(output, 'zero.out'); rewrite(output);\r
  16 \r
  17     read(n);\r
  18 \r
  19     for i := 1 to n do begin\r
  20         read(a[i]);\r
  21     end;\r
  22 \r
  23     for i := n downto 1 do begin\r
  24         write(a[i], ' ');\r
  25     end;\r
  26     writeln;\r
  27 \r
  28     close(input);\r
  29     close(output);\r
  30 end.