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