program Array1;
var
i,j:integer; // счетчик в цикле
NewN,C,N:integer; // размер массива
M: array [1..10] of integer;
NewM: array [1..20] of integer;

begin
// ввод данных
writeln('Введите C ');
 readln(C);
writeln('Введите N (N<=10)');
 readln(N);
 writeln('Введите элементы массива');
 for i:=1 to N do begin read(M[i]); end; // формирование массива
i:=1;
j:=1;
NewN:=N;
for  i:=1 to N do    begin
if (odd(M[i]))and(not odd(i)) then
 begin
 inc(NewN); // увеличиваем массив
 NewM[j]:=C; // вставляем значение
 inc(j);
 end;
NewM[j]:=M[i]; // вставляем значение
inc(j);
 end;
 Writeln('Новый массив =');
for i:=1 to NewN do begin write(NewM[i],' '); end; // формирование массива

end.