Дан массив размера N. Вывести вначале его элементы с четными индексами, а затем — с нечетными

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Randomize;
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i], )
    End;
WriteLn;
i:=1;
While i <= N do
   Begin
   Write(A[i], );
   i:=i+2;
   End;
WriteLn;
i:=2;
While i <= N do
   Begin
   Write(A[i], );
   i:=i+2;
   End;
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.