PROGRAM SETS;
VAR SIX:SET OF 1..6;
    PART:BOOLEAN;
BEGIN
SIX:=[6];
SIX:=SIX*[1..4];
PART:=SIX<>[];
PART:=SIX*[1..6]<>[];
END.