var
  x: array[1..3] of set of integer;
  y: array[1..2] of set of integer;
  i, j, temp: integer;

begin
  for i := 1 to 3 do
    for j := 1 to 10 do
    begin
      repeat
        Write('Введите ' + j + '-ый элемент ' + i + '-го множества: ');
        ReadLn(Temp);
      until temp in [0..100];
      x[i] := x[i] + [temp]
    end;

  y[1] := (x[1] + x[2]) * (x[2] + x[3]);
  for i := 0 to 100 do if Odd(i) and (i in y[1]) then y[2] := y[2] + [i];

  WriteLn('Исходные множества');
  for i := 1 to 3 do
  begin
    Write('x(' + i + ')= ');
    for j := 0 to 100 do if j in x[i] then Write(j:4);
    WriteLn;
  end;

  WriteLn('Сформированные множества:');
  for i := 1 to 2 do
  begin
    Write('y(' + i + ')= ');
    for j := 0 to 100 do if j in y[i] then Write(j:4);
    WriteLn;
  end;
end.