program mnojestvo;
var
a,b,c: set of 1..200;
j,x: byte;
begin
writeln('Введите элементы множества A');
for j:=1 to 5 do
begin
write (j,' элемент ');
read (x);
a:=a+[x]
end;
writeln('Введите элементы множества B');
for j:=1 to 5 do
begin
write (j,' элемент ');
read (x);
b:=b+[x]
end;
c:=a+b;
writeln;
writeln ('Объединение множеств A и B есть множество:');
for x:=1 to 200 do
If (x in c) then writeln (x);
if c=[] then writeln ('Пустое');
readln;
end.
Другой вариант
program mnojestvo;
type
mn= set of char;
var
A,B,C: mn; sym : char;
procedure ReadMnog(Var Mnog: mn);
var
s: string;
i: integer;
begin
Mnog:=[];
write('Введите множество: ');
readln(s);
for i:=1 to Length(s) do Mnog:=Mnog+[s[i]];
end;
Begin
ReadMnog(A);
ReadMnog(B);
C:=[];
C:=A+B;
write('Объединение множеств С=');
for sym:=CHR(1) to CHR(255) do
if sym in C then Write(sym:2);
readLn;
end.