Program GlasSogas_lol;
Uses crt;
Const
 n = 25;
 Sogl : set of char = ['Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р',
                       'С','Т','Ф','Х','Ц','Ч','Ш','Щ','Ь','Ъ','б','в','г',
                       'д','ж','з','й','к','л','м','н','п','р','с','т','ф',
                       'х','ц','ч','ш','щ','ь','ъ'];
 Glas : set of char = ['А','Е','И','О','У','Ы','Э','Ю','Я','а','е','и','о',
                       'у','ы','э','ю','я'];
Var
 S, S_Glas, S_Sogl : string[n];
 I : integer;
Begin
 ClrScr;
 Write('Введите строку (25 символов): ');
 Readln(S);
 S_Sogl := '';
 S_Glas := '';
 For i := 1 to n do
 Begin
   if S[i] in Glas then
     S_Glas := S_Glas + S[i]
   else if S[i] in Sogl then
     S_Sogl := S_Sogl + S[i];
 End;
 Writeln('Гласные: ', S_Glas);
 Writeln('Согласные: ', S_Sogl);
 ReadKey;
ENd.