Задан массив а[1..5]. составьте программу, которая выводит на экран элементы массива в обратном порядке.

Const n=5; 
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(51);
 write(a[i]:4);
 end;
writeln;
writeln('Массив A в обратном порядке:');
for i:=n downto 1 do write(a[i]:4);
writeln;
end.

Пример:
Массив A:
 37 39 41 9 25
Массив A в обратном порядке:
 25 9 41 39 37

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(5,-99,99); a.Println;
  a.Reverse.Println;
end.

Пример
-80 64 42 -50 16
16 -50 42 64 -80