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

begin

 var a := ReadArrReal(8);

 a[::-1].Println

end.

uses crt;

var a:array[1..8] of integer;

   i:integer;

begin

    for i:=1 to 8 do

    a[i]:=random(10);

    for i:=1 to 8 do

    begin

         write(a[i]:3);

    end;

    writeln;

    for i:=8 downto 1 do

    write(a[i]:3);

end.