MAKHOA Pascal

// chuyentin.pro - Lop hoc chuyen tin online

var s1,s2:string;
     d1,d2:array['0'..'9'] of longint;

procedure nhap;
begin
    readln(s1);
    readln(s2);
end;

procedure giai;
var i: longint; c:char;
begin
      for i:=1 to length(s1) do 
        inc(d1[s1[i]]);
       for i:=1 to length(s2) do 
        inc(d2[s2[i]]);
       for c:='9' downto '0' do
        if (d1[c]>0) and (d2[c]>0) then write(c);
End;

Begin
    //assign(input, 'makhoa.inp');reset(input);
    //asign(output, 'makhoa.out');rewrite(output);
    nhap;
    giai;
End.