program zbiory;
uses crt;
type tydzien = (po, wt,sr,cz,pi,so,ni);
        wolne = set of pi..ni;
var zbiorA,zbiorB,zbiorC: set of byte;


begin
  clrscr;
  if ni in wolne then writeln('OK');
  zbiorA:=[1,2,5,7];
  zbiorB:=[3,4,5,6];
  zbiorC:=zbiorA+zbiorB-[5];
  if 5 in zbiorC then writeln('Blad');
  if 1 in zbiorC then writeln('Jest 1');
  readln;
end.