[gnom]

всем привет.помогите,пожалуйста.есть 2 множества, содержащие числа 1..70 и мощностью 10 каждое.нужно вывести пересечение первого и второго.
есть код

Код:

type x=set of byte;
var
  x1:set of 1..70;
  x2:set of 1..70;
  y:x;// результирующее множество

  procedure TForm1.Button1Click(Sender: TObject);
 var i: Integer;
begin
  x1:=[1,2,3,4,5,6,7,8,9,10];
 x2:=[11,12,13,10,1,2,4,5,6,7];
  for i:=1 to 10 do
  begin
     y1:=x1*x3;
  end;
   Memo1.Lines.Add(y1);
end;
end.

Админ: Пользуемся тегами для оформления кода!