var s1,s2:string; 
m1,m2,m:set of char; c:char;i:integer;
begin
writeln('1 строка:');
readln(s1);
writeln('2 строка:');
readln(s2);
m1:=[];
for i:=1 to length(s1) do m1:=m1+[s1[i]];
m2:=[];
for i:=1 to length(s2) do m2:=m2+[s2[i]];
m:=m1*m2;
writeln('Общие символы:');
for c:=chr(32) to chr(255) do 
 if c in m then write(c:2);
writeln;
end.