testemptysquarebrackets.out

来自「格式化源码的最新板」· OUT 代码 · 共 15 行

unit testemptysquarebrackets;

interface

type
  tmonkey = (gibbon, baboon, vervet, mandril);
  tbarrelofmonkeys = set of tmonkey;

const
  tfoo: tbarrelofmonkeys = [];

implementation

end.