Перечислимый тип: флаги

uses System;
 
type
  [FlagsAttribute]
  BookAttribute = (ComputerBook = 1, OneAuthor = 2, SmallSize = 4);
 
var 
  b1: BookAttribute := ComputerBook or OneAuthor;  
  b2: BookAttribute := OneAuthor or SmallSize or ComputerBook;  
 
begin
  writeln(b1);
  writeln(b2);
end.