Дано множество А – множество гласных букв русского алфавита и множество В, состоящее из символов: а, о, !, ?. · Вывести на экран исходные множества. · Найти С= А объединение В . · Проверить: выполняется ли А=В. Ответ вывести в текстовой форме. · Проверить: выполняется ли А включено в В. Ответ вывести в текстовой форме. · Проверить: выполняется ли А не равно В. Ответ вывести в текстовой форме. · Найти D = А пересечение В. · Найти Е = А \ В. · Найти F = В \ А. · Вывести на экран найденные множества. · Добавить во множество В элементы & и #. · Исключить из множества А те элементы, которых нет в В. · Вывести результата на экран. — Pascal(Паскаль)

var
  a, b, c, d, e, f: set of char;
  ch: char;

begin
  a := ['у', 'е', 'ы', 'а', 'о', 'э', 'я', 'и', 'ё', 'ю'];
  b := ['а', 'о', '!', '?'];
  write('a=');
  for ch := #0 to #255 do
    if ch in a then
      write(ch);
  writeln;
  write('b=');
  for ch := #0 to #255 do
    if ch in b then
      write(ch);
  writeln;
  c := a + b;
  write('a=b  ');
  writeln(a = b);
  write('a in b   ');
  writeln(a <= b);
  write('a<>b   ');
  writeln(a <> b);
  d := a * b;
  e := a - b;
  f := b - a;
  write('c=');
  for ch := #0 to #255 do
    if ch in c then
      write(ch);
  writeln;
  write('d=');
  for ch := #0 to #255 do
    if ch in d then
      write(ch);
  writeln;
  write('e=');
  for ch := #0 to #255 do
    if ch in e then
      write(ch);
  writeln;
  write('f=');
  for ch := #0 to #255 do
    if ch in f then
      write(ch);
  writeln;
  b := b + ['&', '#'];
  a := a * b;
  write('a=');
  for ch := #0 to #255 do
    if ch in a then
      write(ch);
  writeln;
  write('b=');
  for ch := #0 to #255 do
    if ch in b then
      write(ch);
  writeln;

end.