program TransferBuildings;
type
	Houses=(Detached, SemiDetached, Condos);
	PresHouses = set of Houses;
 
var
	FamHouse	:PresHouses;	
	myHouses	:PresHouses;
 
begin
 
FamHouse := [Detached, Condos];
 
myHouses := FamHouse;
 
 
FamHouse := [];
 
 
myHouses := myHouses + [SemiDetached];
 
if Condos in myHouses then
  writeln('Condos');
 
if SemiDetached in myHouses then
  writeln('SemiDetached');
 
 myHouses := myHouses - [Detached];
 
 
if not (Detached in myHouses) then
  writeln('No Detached');
 
end.
 

cHJvZ3JhbSBUcmFuc2ZlckJ1aWxkaW5nczsKdHlwZQoJSG91c2VzPShEZXRhY2hlZCwgU2VtaURldGFjaGVkLCBDb25kb3MpOwoJUHJlc0hvdXNlcyA9IHNldCBvZiBIb3VzZXM7Cgp2YXIKCUZhbUhvdXNlCTpQcmVzSG91c2VzOwkKCW15SG91c2VzCTpQcmVzSG91c2VzOwoJCmJlZ2luCgpGYW1Ib3VzZSA6PSBbRGV0YWNoZWQsIENvbmRvc107CgpteUhvdXNlcyA6PSBGYW1Ib3VzZTsKCgpGYW1Ib3VzZSA6PSBbXTsKCgpteUhvdXNlcyA6PSBteUhvdXNlcyArIFtTZW1pRGV0YWNoZWRdOwoKaWYgQ29uZG9zIGluIG15SG91c2VzIHRoZW4KICB3cml0ZWxuKCdDb25kb3MnKTsKCmlmIFNlbWlEZXRhY2hlZCBpbiBteUhvdXNlcyB0aGVuCiAgd3JpdGVsbignU2VtaURldGFjaGVkJyk7CiAgCiBteUhvdXNlcyA6PSBteUhvdXNlcyAtIFtEZXRhY2hlZF07CgoKaWYgbm90IChEZXRhY2hlZCBpbiBteUhvdXNlcykgdGhlbgogIHdyaXRlbG4oJ05vIERldGFjaGVkJyk7CiAgCmVuZC4K