program ideone;

type
  petuh = (petya, peetoox, petushok, pitux, roskomgovno);

var
  a, b: set of petuh;
  i: petuh;

begin
  a := [petya, peetoox, petushok, pitux];
  b := [peetoox, pitux, roskomgovno];
  for i in a + b do
    write(integer(i), ' ');
  writeln;
  for i in a - b do
    write(integer(i), ' ');
  writeln;
  for i in a * b do
    write(integer(i), ' ');
  writeln;
  writeln(roskomgovno in a, roskomgovno in b)
end.