Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из
A1, A3, ..., A17, A2, A4, ..., A1

Вообщем если не понятно, то на скриншоте всё видно.
Нужно на паскале решить

var A,B:array[1..17] of integer;i:byte;beginfor i:=1 to 17 do read(a[i]);for i:=1 to 17 doif odd(i) then  begin  b[i]:=a[i];  write(b[i],' '); end;for i:=1 to 17 doif not odd(i) then  begin  b[i]:=a[i];  write(b[i],' '); end;end.