const n=10;
var a: array [1..n] of integer;
var i:integer;
begin
  
  for i:=1 to n do begin
    a[i]:=random(1,10);
    write (a[i], ' ');
    end; 
 
  for i := 2 to N do
  begin
    if a[i] mod 2 = 0 then begin 
    var buf := a[i];
    var j := i - 1;
    var y := i-1;
  while (j >= 1) and ((a[j] > buf) or (a[j] mod 2 <> 0)) do
  begin
    if a[j] mod 2 = 0 then
      begin
    a[y + 1] := a[j];
    y := j - 1;
    end;
    j:=j-1;
  end;
  a[y+1] := buf; 
  end;
  end;
    print(a);

end.