Дан массив из 20-ти случайных чисел. необходимо записать во второй массив значение первого в обратном порядке. С помощью Паскаля

Программа:

{https://znanija. com/task/43084190

<c> NaaMan}

program test;

var b : array[0. . 19] of integer;

begin

var a := ArrRandomInteger(20, 0, 100);

writeln(a);

for var i := 0 to 19 do

b[19 - i] := a[i];

writeln(b);

end.

Результат выполнения: