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

[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.

[Azart]

спасибо за оперативность, но мне выдается сообщение об ошибке :-(

может быть я не верно сформулировал задачу. в результате должено получаться следующее: должны сравниваться два множества и выводиться на экран одинаковые числа.

у меня есть образец решения на массивы:

Program z3;
uses crt;
var a,b,c:array [1..20] of integer;
i,n: integer;
begin
clrscr;
writeln (‘vvedite n’);
readln (n);
for i:=1 to n do
begin
write (‘a[‘,i,’] =’);
readln (a[i]);
end;
for i:= 1 to n do
if a[i]=b[i] then
writeln(‘povtoryaetsya chislo a[‘,i;’]=b[‘,i,’]=’,a[i]);
readkey;
end.