Сформировать новое множество, определить, входят ли во второе и в третье множество

type
  TSet = set of 1..100;
procedure ReadSet(var s: TSet);
var e: Integer;
begin
  s:=[];
  while not SeekEOLn do begin
    Read(e); if e in [1..100] then Include(s,e);
  end; ReadLn;
end;
var
  x1, x2, x3, y: TSet;
  i: Integer;
begin
  Write('Введите x1: '); ReadSet(x1);
  Write('Введите x2: '); ReadSet(x2);
  Write('Введите x3: '); ReadSet(x3);
  y:=(x1+x2)*(x2-x3);
  Write('Y =');  for i:=1 to 100 do if i in y then Write(' ',i); WriteLn;
  WriteLn('X2 входит в X3 = ',x2*x3=x2);
end.

type x = set of byte;
 
procedure inp(var r: x; s: string); {ghjwtlehf ddjlf vyj;tcndf}
var i, a: byte;
    b: boolean;
begin
  r := []; {инициализация множества}
  writeln('Enter 10 elements of set ', s, ':');
  for i := 1 to 10 {ввод множества}
    do repeat
      write(i:2, ': '); {ввод элемента}
      readln(a);
      b := (a in [1..100]) and not (a in r); {елемент в диапазоне и элемент не во множестве}
      if not b {смотрим, нужно ли вводить}
        then writeln('Element out of range 1..100 or already exist, reenter.') {не нужно}
        else include(r,a) {нужно}
    until b {введено - далее}
end;
 
procedure prn(var r: x; s: string); {печать множества}
var i: integer;
begin
  write('Set ', s, ':');
  if r = []
    then write(' empty') {если мн ожество пустое, так и печатаем}
    else for i := 1 to 100 do if i in r then write(i:4); {пречаь множества}
  writeln
end;
 
var x1, x2, x3, y: x;
 
begin
  inp(x1, 'X1'); {вводы}
  inp(x2, 'X2');
  inp(x3, 'X3');
  prn(x1, 'X1'); {выводы}
  prn(x2, 'X2');
  prn(x3, 'X3');
  writeln('X2 in X3: ', x2 <= x3); {печать глупого условия не то опринадлежности, не то о равенстве множеств}
  y := (x1 + x2) * (x2 - x3); {выводим результирующее множество}
  prn(y, 'Y=(X1+X2)*(X2-X3)');
  readln
end.