type st = set of 1..100;
var x1,x2,x3,y: st;
    s,a: integer;
procedure inputn(var z: st);
var i: integer;
begin
For i:=1 to 5 do
begin
  readln(a);
  Include(z,a);
end;     
end;    
{основная программа}    
begin
x1:=[ ]; x2:=[ ]; x3:=[ ];
writeln('Вв. 5 элементов множества x1 через Enter:');
inputn(x1);
Writeln('Вв. 5 элементов множества x2 через Enter:');
inputn(x2);
Writeln('Вв. 5 элементов множества x3 через Enter:');
inputn(x3);
y:=(x2*x3)-((x1*x2)+(x1*x3));
s:=0;
foreach a in y do
begin
 s:=s+1;
 if (a=20) or (a=30) then
 writeln('элемент: ',a,' принадлежит множеству Y');
end; 
write('элементы множества Y:  ');
foreach a in y do write(a,' ');
writeln;
writeln('Мощность Y:  ',s);
Readln;
end.