program mn; uses crt; var s,s11,s22:set of 'a'..'z'; s1,s2:string; z:char; i:integer; BEGIN CLrScr; Write('1 stroka:');readln(s1); Write('2 stroka:');readln(s2); for i:=1 to length(s1)do begin s11:=s11+[s1[i]]; s22:=s22+[s2[i]]; end; s:=s11*s22; for z:='a' to 'z' do BEGIN if z in s then write(z,' '); end; readln; END.