Даны три множества Х1,Х2, Х3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y=(X1UX2)\(X2UX3) , из которого выделить подмножество нечетных чисел — Pascal(Паскаль)

uses crt;
var
  x1,x2,x3:set of 1..100;
  y,z:set of 1..100;
  i,q,w:longint;
begin
clrscr;
writeln('1-e множество: ');
writeln('число элементов: ');
readln(q);
w:=q;
q:=1;
   while (w>q-1) do
   begin
      writeln('введите ',q,' число');
      readln(i);
      if not(i in x1) then
      begin
         x1:=x1+[i];
         inc(q);
      end;
   end;
   writeln('2-e множество: ');
   writeln('число элементов: ');
   readln(q);
   w:=q;
   q:=1;
   while (w>q-1) do
   begin
      writeln('введите ',q,' число');
      readln(i);
      if not(i in x2) then
      begin
         x2:=x2+[i];
         inc(q);
      end;
   end;
   writeln('3-e множество: ');
   writeln('число элементов: ');
   readln(q);
   w:=q;
   q:=1;
   while (w>q-1) do
   begin
      writeln('введите ',q,' число');
      readln(i);
      if not(i in x3) then
      begin
         x3:=x3+[i];
         inc(q);
      end;
   end;
   y:=(x1+x2)*(x2+x3); 
   write('Y множество:= ');
   for i:=1 to 100 do
      if i in y then
         write(i,' ');
   writeln;
   writeln('Множество нечетных элементов Y: ');
   z:= [];
   for i:=1 to 100 do
      if odd(i) then
         if i in y then
            z:= z + [i];
   for i:= 1 to 100 do
      if i in z then
         write(i,' ');
   writeln;
   end.