TP3/shell/tests/fixtures/t137_dynset.pas

program dynset;
type S = set of 'a'..'z';
var X : S;
    C : char;
begin
  C := 'q';
  X := [];
  X := X + [C];
  if C in X then writeln('yes') else writeln('no')
end.