Универсальное множество образуют гласные буквы
русского алфавита.
Укажите буквы (в алфавитном порядке), не входящие ни
в множество М, ни в множество N

{Создать множество из 15 символов, введенных с клавиатуры. Определить, какие гласные буквы русского алфавита не вошли в это множество. Результат (буквы) вывести на экран.} const   n=15;   gls:set of char=(['у','У','е','Е','ё','Ё','ы','Ы','а','А','о','О','э','Э','я','Я','и','И','ю','Ю']); var   i,ch:char;   k:integer;   q,x:set of char; begin   x:=[];  k:=0; q:=[];   while true do     begin       write('Введите очередной символ: ');  readln(ch);       if not (ch in x) then         begin           inc(k);           include(x,ch);         end;       if k=n then         break;     end;   q:=gls-x;   for i:=#32 to #255 do     if i in q then       write(i,' ');   readln;   end.