program laba1_4;
uses
   System.SysUtils;
var
   Temp: Longint;
   N, i: Integer;
   A: array[1..10000] of Integer;
   IsValid: Boolean;
   const MIN_SIZE = 0;
   const MAX_SIZE = 10001;
   const MIN_VALUE = -1000000001;
   const MAX_VALUE = 1000000001;
begin
   IsValid := False;
   N := 0;
   Writeln('Данная программа "переворачивает" заданную последовательность');
   Write('Введите кол-во элементов последовательность в диапазоне ', MIN_SIZE + 1, '..', MAX_SIZE - 1, ': ');
   repeat
      try
         Readln(N);
      except
         Writeln('Введите корректные данные');
      end;
      if (N > MIN_SIZE) and (N < MAX_SIZE) then
         IsValid := True
      else
         Writeln('Введите кол-во элементов последовательности в заданном диапазоне');
   until IsValid;
   Writeln('Введите элементы последовательности в диапазоне ', MIN_VALUE + 1, '..', MAX_VALUE - 1, ' через пробел или Enter: ');
   for i := 1 to N do
   begin
      IsValid := False;
      repeat
         try
            Read(A[i]);
         except
          Writeln('Введите корректные данные');
         end;
         if (A[i] > MIN_VALUE) and (A[i] < MAX_VALUE) then
            IsValid := True
         else
            Writeln('Введите элемент последовательности в заданном диапазоне');
      until IsValid;
   end;
   Readln;
   for i := 1 to N div 2 do
   begin
      Temp := A[i];
      A[i] := A[N - i + 1];
      A[N - i + 1] := Temp;
   end;
   Writeln('"Перевёрнутая" последовательность: ');
   for i := 1 to N do
      Write(A[i], ' ');
   Writeln;
   Writeln('Нажмите Enter для выхода из программы');
   Readln;
end.