Алеся Зубова

const n=5;

var a,b,c,y:set of byte;
    i,p:byte;

Function Alesya(n:byte):set of byte;
var i,x:byte;
Begin
i:=1;
While i <= n do
      Begin
      Readln(X);
      if (1 <= X) and (X <= 100) then Begin i+=1; Alesya+=[X]; end
                                 else Writeln('Ошибка :(');
      end;
end;

Begin
A:=[]; B:=[]; C:=[]; // Обнулим
Writeln('Введите '+N+' элементов первого множества: '); A:=Alesya(N);
Writeln('Введите '+N+' элементов второго множества: '); B:=Alesya(N);
Writeln('Введите '+N+' элементов третьего множества: '); C:=Alesya(N);

Y:=(B*C)-((A*B)+(A*C));

Writeln('Сформированное множество:');
for i:=1 to 100 do if (i in Y) then Begin P+=1; Write(i:4); end;
Writeln;
if 20 in Y then Writeln('Число 20 входит во множество') else Writeln('Число 20 не входит во множество');
if 30 in Y then Writeln('Число 30 входит во множество') else Writeln('Число 30 не входит во множество');
end.