Множества, определение пересечения множеств Опции

[Azart]

Помогите! Нужно срочно решить задачу:

"Определить пересечение множеств, введенных с клавиатуры."

Спасибо всем!

[klem4]

type
  TSet = set of Byte;

procedure print_set(const s: TSet);
var
  i: Byte;
begin
  for i := 0 to 255 do
   if i in s then
     write(i:4);
end;

var
  a : Tset = [1,255,3,4,5];
  b : TSet = [2, 3, 5];

begin
  print_set(a * b);
end.