program halmazok;
type
    abc = set of 'a'..'z'; 
    szamok = set of 0..9; 
    evszak = set of (tavasz, nyar, osz, tel);
var a, b, c : szamok;
begin
  {egyesítés}
  A := [0, 2, 5, 9]; 
  B := [1, 2, 4, 6]; 
  C := A + B;           
  {eredmény: 
   C = [ 0, 1, 2, 4, 5, 6, 9]}
  
  {metszet}
  A := [0, 2, 5, 9]; 
  B := [1, 2, 4, 6]; 
  C := A * B;
  {eredmény: C = [2]}

  {különbség}
  A := [0, 2, 5, 9]; 
  B := [1, 2, 4, 6]; 
  C := A - B;
  {eredmény: 
   C = [0, 5, 9]}
  
end.