Задание 1

program Zadanie_1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TLetters = set of Char;

var
  VseGlsn, Glsn:TLetters; //Мн-во всех гласных и мн-во гласных из текста
  Sym:Char; //Символ

//Вывод символов из мн-ва
procedure PrintSymMn(Mn:TLetters);
  var
    Ch:Char;

  begin
    for Ch := 'а' to 'я' do
      if Ch in Mn then
        write(Ch,' ');
  end;


begin
  //Начальные значения переменных
  VseGlsn := ['а','е','ё','и','о','у','ы','э','ю','я'];
  Glsn := [];

  write('Введите текст:');
  //Переборка символов и добавление их в список гласных
  repeat
    read(Sym); //Посимвольное чтение

    if (Sym in VseGlsn) and not (Sym in Glsn) then
      include(Glsn,Sym);
  until Sym = #13; //Завершение цикла, если последний символ Enter

  //Вывод найденных гласных
  write('Гласные из текста:');
  PrintSymMn(Glsn);
  writeln;

  readln;
end.