Программа:

{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.

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