Составьте программу,которая выполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 10,затем меняет местами первый элемент со вторым,третий с четвертым и т.д.
Выведите на экран исходный и полученный массивы.

program swap;const  N = 10;var  a: array [1..N] of integer;  i, temp: integer;begin  randomize;  writeln('исходный массив: ');  for i := 1 to N do    begin      a[i] := Random(10);      write(a[i], ' ');    end;  writeln;  i := 1;  while i <= 9 do    begin      temp := a[i];      a[i] := a[i+1];      a[i+1] := temp;      i := i + 2;    end;  writeln('полученный массив: ');  for i := 1 to N do      write(a[i], ' ');end.