program _;
type bass=set of char;//запись из символов
var
letters,A,B:bass; j:char;
s:string; i:integer;
begin
letters:=['а'..'я'];
writeln('введиет элементы множества А');
readln(s);
for i:=1 to length(s) do
begin
include(A,s[i]);
end;
B:=A*letters;
for j:='а' to 'я' do
begin
if j in B then write(j,' ');
end;
end.