Lab2_Var8_z2

{Дана строка. В алфавитном порядке напечатайте (по разу)
все строчные латинские согласные буквы, входящие в эту
строку.
Указание: гласные буквы — а, e, i, o, u; остальные — соглас-
ные. Решение задачи простое, если вы будете использовать
множества.}

program Lab2_Var8_z2;

var
Res, Sogl: set of char; // sogl - множество символов строчных латинских согласных букв
// Res - множество символов с результатом выборки
str: string; //строка для ввода
i: integer;
c: char;

begin
// наполняем множество строчными латинскими согласными буквами
Sogl := ['a'..'z'] - ['a', 'e', 'i', 'o', 'u'];

WriteLn('Введите строку:');
ReadLn(str); // вводим строку

Write('Результат: ');

// проверяем элементы строки на принадлежность множеству
for i := 1 to Length(str) do
if str[i] in Sogl then include(Res, str[i]); //встреченные согласные добавляем в множество Res

// Если множество элементов Res пустое, то выводим соответствующее сообщение,
// иначе выводим элементы множества в алфавитном порядке
if Res = [] then write('Латинских согласных букв в строке нет') else
for c := 'a' to 'z' do
if c in Res then write(c, ' ');
writeln;
end.