Элементы заданного B(n) переписать в новый массив A(n) в обратном порядке( паскаль)

Предыдущий
вопрос Следующий
вопрос

Пример кода на языке Pascal:

program ReverseArray;
const
n = 5;
var
B: array[1..n] of integer;
A: array[1..n] of integer;
i: integer;
begin
// Заполняем массив B
writeln('Введите элементы массива B:');
for i := 1 to n do
begin
write('B[', i, '] = ');
readln(B[i]);
end;
// Переписываем элементы массива B в массив A в обратном порядке
for i := 1 to n do
begin
A[i] := B[n - i + 1];
end;
// Выводим элементы массива A
writeln('Массив A:');
for i := 1 to n do
begin
writeln('A[', i, '] = ', A[i]);
end;
end.

При вводе элементов массива B их значения будут записываться в массив A в обратном порядке.