unit tb0249;

interface
type
  rec=object
    i : longint;
    nrs : (one,two,three);
  end;
var
  brec : rec;

implementation

end.