const n=6;
  num=100;
var arr:array[1..n] of integer;
  m,i,j:integer;
 begin
     Writeln('zapolnite massiv: ');
   for i:=1 to n-1 do
 Read(arr[i]);
   Write('pozitia v massive: ');
 Read(m);
  if (arr[m] mod 2)=0
then
begin
    for i:=n-1 downto m+1 do
arr[i+1]:=arr[i];
    arr[m+1]:=num end
  else
begin for i:=n-1 downto m do
arr[i+1]:=arr[i]; arr[m]:=num
  end;
  Write(' noviy massiw=: ');
   for i:=1 to n do
Write(arr[i]:5);
   writeln;
 readln;
end.