SETS - МНОЖЕСТВА
 

Множествата - SET се декларираат на следниот начин

   type  ime = set of  opseg;

во опсег се задава саканиот опсег на множеството.

Пример за декларирање:

Type broevi = set of  1..10;
Type bukvi  = set of 'a'..'z';

потоа се декларираат променливи

var
   broj : broevi;
   bukva: bukvi;
 

Пример за множества:
 

program prv;
    type
        mnoz=set of 1..100;
    var   a,b:mnoz;
            x:integer;
    begin
        a:=[2,4,6,8];
        b:=[1,3,5,7,9];
        readln(x);
        if x in a then writeln('paren');
        if x in b then writeln('neparen');
    end.

Операции  со множества:

  •  УНИЈА          +
  •  РАЗЛИКА     - 
  •  ПРЕСЕК        *
    program prv;
    type
            mnoz=set of 1..20;
            var  a,b,c,d,e,f:mnoz;
                    i:integer;
            begin
                a:=[2,4,6,8];
                b:=[1,3,5,7,9];
                c:=a-b;
                d:=b-a;
                e:=a+b;
                f:=a*b;
                write('Mnozestvoto c[');
                for i:=1 to 20 do
                    if i in c then write(i:2,',');
                        write(']');
                writeln;
    end.