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

Сначала сохраним числа в массиве, затем выведем его элементы от последнего к первому.

program Task2;
var
  a: array[1..7] of integer;
  i: integer;
begin
  for i := 1 to 7 do
    read(a[i]);
  for i := 7 downto 1 do
    write(a[i], ' ');
end.