Program Sans_Redondance ;
Var
ch1, ch2, ch3, aux : String;
i : integer;
Begin
Write('Chaîne 1 = ');
Readln (ch1);
Write('Chaîne 2 = ');
Readln (ch2);
if length(ch1)>length(ch2) Then
Begin
aux:=ch1;
ch1:=ch2;
ch2:=aux;
End;
ch3:='';
For i:=1To Length(ch1) Do
If (POS(ch1[i],ch2)<>0)and(POS(ch1[i],ch3)=0) Then ch3:=ch3+ch1[i];
Writeln(ch3);
End.