Напишите программу, которая считывает 5 целых чисел, каждое на одной строке записывает их в массив и печатает этот массив наоборот на одной строке через пробелы. Использовать функции (readln, write, for downto). Пример
Ввод
1
2
3
4
5
Вывод
5 4 3 2 1

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

program ReverseArray;

var
arr: array[1..5] of Integer;
i: Integer;

procedure readNumbers();
begin
for i := 1 to 5 do
begin
readln(arr[i]);
end;
end;

procedure reverseArray();
begin
for i := 5 downto 1 do
begin
write(arr[i], ' ');
end;
end;

begin
readNumbers();
reverseArray();
end.