{Винарский 16_22_г}
type
list=^node;
node=record
      elem: integer;
      next: list
     end;

var L: list; E,E1: integer;

procedure init(var L: list);
var x,y: list; c: integer;
  begin
    L:=nil;
    read(c);
    if(c<>0) then
      begin
        new(x);
        x^.elem:=c;
        x^.next:=nil;
        L:=x;
        read(c);
        while(c<>0) do
          begin
            new(x^.next);
            x:=x^.next;
            x^.next:=nil;
            x^.elem:=c;
            read(c);
          end;
      end;
  end;

procedure insert(var L: list; E,E1: integer);
var p,q: list;
  begin
    if(L<>nil) then
      begin
        p:=L;
        while(p<>nil) do
          begin
            if(p^.elem=E) then
              begin
                new(q);
                q^.elem:=E1;
                q^.next:=p^.next;
                p^.next:=q;
              end;
            p:=p^.next;
          end;
      end;
  end;

procedure printL(L: list);
  begin
    if(L<>nil) then
      begin
        write(L^.elem,' ');
        printL(L^.next);
      end;
  end;

begin
init(L);
read(E,E1);
insert(L,E,E1);
printL(L);
end.