uses
    crt;
var
   a,b:set of char;
   x:char;
begin
     clrscr;
     write('x - ');
     readln(x);
     a:=a+[x];
     b:=a;
     readkey
end.