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

//PascalABC.NET
var
a: array [1..8] of integer;
i:integer;
begin
for i:=1 to 8 do read(a[i]);
for i:=8 downto 1 do write(a[i],' ');
end.