const Sz = 10; // Размер массива
 
var 
  a: array [1..Sz] of integer;
  i: integer;
  t: integer;
 
begin
  t := 0;
  
  for i:=1 to Sz do
    a[i] := i;

  writeln('Элементы массива до изменения: ');
  for i:=1 to Sz do
    write(a[i],' ');
    
  writeln();
  i := 2;
    
  while(i < (Sz - 1)) do
  begin
    t := a[i];
    a[i] := a[i + 1];
    a[i + 1] := t;
    i := i + 2;
  end;
  
  writeln('Элементы массива после изменения: ');
  for i:=1 to Sz do
    write(a[i],' ');
    
end.