program fsfesef;
var
   myArray:array of integer;
   i,n,Bufer,Length:integer;
   IsCorrect:boolean;
begin
   IsCorrect := False;
   repeat
      Writeln('Введите количество элементов массива в диапазоне от 2 до 20');
      try
         Readln(n);
         if (n < 2) or (n > 20) then
            begin
               Writeln('n введено неправильно!оно должно быть в диапазоне от 2 до 20');
            end
         else
            IsCorrect := True;
      except
         Writeln('n введено неправильно!оно должно быть в диапазоне от 2 до 20');
      end;
   until IsCorrect;
   SetLength(myArray, n);
   Length := (n - 1);
   writeln('Введите ',n,' элементa(ов) массива(целые числа)');
   for i := 0 to Length do
      repeat
         IsCorrect := true;
         try
            writeln('Введите a[',i,'] элементов массива(целые числа)');
            read(myArray[i]);
         except
            IsCorrect := false;
            writeln('это не число!');
         end;
      until(IsCorrect);
   write('Начальный массив:');
   for i := 0 to Length do
      write(myArray[i],',');
      writeln;
   for i := 0 to Length  do
      if (i mod 2) = 1 then
      begin
         Bufer := myArray[i];
         myArray[i] := myArray[i - 1];
         myArray[i - 1] := Bufer;
      end;
   write('Конечный массив:');
   for i := 0 to Length do
      write(myArray[i],',');
end.