program tnestedset; {$mode delphi} uses {$ifdef java}jdk15{$else}androidr14{$endif}; type tnestedfpstructenum = (ea,eb,ec); tnestedfpstructenumset = set of tnestedfpstructenum; procedure test(var s: tnestedfpstructenumset); procedure sub; begin s:=s+[eb]; end; begin sub end; var s: tnestedfpstructenumset; begin test(s); if s<>[eb] then raise jlexception.create; jlsystem.fout.println(jlstring(juenumset(@s).toString)); end.