program pptest8;
type
colour = (red,yellow,blue);
mix = set of colour;
charset = set of char;
var
s1,s2 : mix;
s3,s4 : charset;
s5 : set of 0 .. 239;
b : boolean;
c1,c2 : colour;
c3,c4 : char;

begin
{ set construction }
s1 := [];
s1 :=[red];
s1 :=[red .. blue];
s1 :=[blue .. red];
s1 :=[c1,c1 .. blue];
s1 :=[c1 .. c2,yellow,c2,blue];

s3 := [];
s3 := ['Z'];
s3 := ['A' .. 'Z'];
s3 := [c3,c3 .. 'P'];

{ set comparisons }

{ single word sets }


    b := s1 = s2;
    b := s1 <> s2;
    b := s1 >= s2;
    b := s1 <= s2;
    b := c1 in  s1;

 { multi-word sets }

    b := s3 = s4;
    b := s3 <> s4;
    b := s3 >= s4;
    b := s3 <= s4;
    b := c3 in s3;

 { single word sets }
    s1 := s1 + s2;
    s1 := s1 - s2;
    s1 := s1 * s2;

  { multi-word sets }
    s3 := s3 + s4;
    s3 := s3 - s4;
    s3 := s3 * s4;


 { integer sets }
s5 := [1,5 .. 111]
end { pptest8 }.