Задание 4. Написать программу, которая введёт n чисел, выведет их в одной строке в обратном порядке.

Сначала вводим количество элементов n, затем сохраняем числа в массив и выводим его с конца. Размер массива ограничен значением MaxN; при необходимости его можно увеличить.

program Task4;
const
  MaxN = 1000;
var
  a: array[1..MaxN] of integer;
  n, i: integer;
begin
  readln(n);
  if (n < 1) or (n > MaxN) then
    halt;
  for i := 1 to n do
    read(a[i]);
  for i := n downto 1 do
    write(a[i], ' ');
end.