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.
UHJvZ3JhbSBTYW5zX1JlZG9uZGFuY2UgOwpWYXIKY2gxLCBjaDIsIGNoMywgYXV4IDogU3RyaW5nOwppIDogaW50ZWdlcjsKQmVnaW4KV3JpdGUoJ0NoYcOubmUgMSA9ICcpOwpSZWFkbG4gKGNoMSk7CldyaXRlKCdDaGHDrm5lIDIgPSAnKTsKUmVhZGxuIChjaDIpOwppZiBsZW5ndGgoY2gxKT5sZW5ndGgoY2gyKSBUaGVuCkJlZ2luCmF1eDo9Y2gxOwpjaDE6PWNoMjsKY2gyOj1hdXg7CkVuZDsKY2gzOj0nJzsKRm9yIGk6PTFUbyBMZW5ndGgoY2gxKSBEbwpJZiAoUE9TKGNoMVtpXSxjaDIpPD4wKWFuZChQT1MoY2gxW2ldLGNoMyk9MCkgVGhlbiBjaDM6PWNoMytjaDFbaV07CldyaXRlbG4oY2gzKTsKRW5kLg==