Паскаль...Задача на множетсва.

[Ekatharina]

нужно решить вот эту задачу : Даны 2 набора целых чисел. Определить какие из чисел есть в обоих наборах.

люди добрые, помогите экзамен через 2 дня!

[VadEr]

const
	razmer  = 10; kol  = 6;
var
  a,b,res: Set of 0..razmer;
  i: byte;
begin
  Randomize;
  a := []; b := []; {Начинаем формировать с пустых множеств}
  for i := 0 to kol do
  begin
     a := a + [Random(razmer+1)];
     b := b + [Random(razmer+1)];
  end;

{Распечатываем элементы множества "a" и "b"}
  write('Множество_1: ');
  for i:=0 to razmer do if i in a then Write(i:3);
  writeln; write('Множество_2: ');
  for i:=0 to razmer do if i in b then Write(i:3);
  writeln;

  res := a * b; {Множество res содержит совпадающие числа}
  if res=[ ]  then WriteLn('Савпадающих чисел нет.')
  else begin
           Write('Обнаружены совпадения: ');
{Распечатываем элементы множества "res"}
           for i:=0 to razmer do if i in res then Write(i:3);
        end;
  readln
end.

[Ekatharina]

Спасибо огромное!!!!!! ты меня спас....