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