uses crt;
var x,y,st,c:string;
    A,B:array[1..255] of integer;
    tg,n,i,m,j,so:integer;
  begin
    clrscr;
    write('Nhap xau x: ');   readln(x);
    write('Nhap xau y: ');   readln(y);
    for i:=1 to length(x) do
      begin
        val(x[i],so);
        A[i]:=so;
      end;
    for i:=1 to length(y) do
      begin
        val(y[i],so);
        B[i]:=so;
      end;
    for i:=1 to length(x)-1 do
      for j:=i+1 to length(x) do
        if A[i]<A[j] then
          begin
            tg:=A[i];
            A[i]:=A[j];
            A[j]:=tg;
          end;
    for i:=1 to length(y)-1 do
      for j:=i+1 to length(y) do
        if B[i]<B[j] then
          begin
            tg:=B[i];
            B[i]:=B[j];
            B[j]:=tg;
          end;
    n:=length(x);  m:=length(y);
    x:='';  y:='';
    for i:=1 to n do
      begin
        str(A[i],c);
        x:=x+c;
      end;
    for i:=1 to m do
      begin
        str(B[i],c);
        y:=y+c;
      end;
    i:=1;
    while i<=n-1 do
      if x[i]=x[i+1] then
        begin
          delete(x,i,1);
          dec(n);
        end
      else inc(i);
    i:=1;
    while i<=m-1 do
      if y[i]=y[i+1] then
        begin
          delete(y,i,1);
          dec(m);
        end
      else inc(i);
    st:='';
    for i:=1 to length(x) do
      if pos(x[i],y)<>0 then
        st:=st+x[i];
    write(st);
    readln
  end.

uses crt;
var x,y,st:string; i,j:longint; t:char;
begin
clrscr;
   write('X=');readln(x);
   write('Y=');readln(Y);
   for i:=1 to length(x) do
         if(pos(x[i],y)<>0)and(pos(x[i],st)=0)then
            begin
               st:=st+x[i];
               for j:=1 to length(st) do
                  if st[length(st)]>st[j] then
                  begin t:=st[length(st)]; st[length(st)]:=st[j]; st[j]:=t; end;
            end;
   writeln(st);
readln
end.