THAYDOI PASCAL

var n, k, x, i, m, t:longint;
       a, b: array[1..1000] of longint;

procedure Nhap;
var i:longint;
begin
    readln(n, k, x);
    for i:=1 to n do read(a[i]);
end;

procedure TaoMangb;
var i:longint;
begin
    m:=0;
    for i:=1 to n do
           if a[i] mod 2 = 0 then 
        begin
              inc(m);
              b[m]:=a[i];
          end;
end;

procedure XuatMangb;
var i:longint;
begin
    for i:=1 to m do write(b[i],' ');
    writeln;
end;

procedure XoaPhanTu;
var i:longint;
begin
    for i:=k to m-1 do b[i]:=b[i+1];
    dec(m);
end;

procedure ThemPhanTu;
var i:longint;
begin
    inc(m);
    for i:=m downto 2 do b[i]:=b[i-1];
    b[1]:=x;
end;

procedure DichChuyen;
var i:longint;
begin
    t:=b[1];
    for i:=1 to m-1 do b[i]:=b[i+1];
    b[m]:=t;
end;

begin
    assign(input,'thaydoi.inp');reset(input);
    assign(output,'thaydoi.out');rewrite(output);
    Nhap;
    TaoMangb;        //cau a
    XuatMangb;
    XoaPhanTu;    //cau b
    XuatMangb;
    ThemPhanTu;    //cau c
    XuatMangb;
    DichChuyen;        //cau d
    XuatMangb;
end.