выводит слова, начинающиеся с согласной буквы и содержащие не менее двух гласных

[kdfnvjjfb]

выводит слова, начинающиеся с согласной буквы и содержащие не менее двух гласных

[Serge_Bliznykov]

кто выводит? программа? а где она?

[newerow1989]

var s,s1:string;
    i,j,k:integer;
begin
   Write('s = '); Readln(s);
   s:=s+' ';
   s1:='';
   For i:=1 to Length(s) do
   begin
      If (s[i]>='А') and (s[i]<='Я') or (s[i]>='а') and (s[i]<='я') then
         s1:=s1+s[i] else
      begin
         If s1='' then
            Continue;
         If s1[1] in ['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','Й','й',
              'К','к','Л','л','М','м','Н','н','П','п','Р','р','С','с','Т','т',
              'Ф','ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ'] then
         begin
            k:=0;
            For j:=1 to Length(s1) do
               If s1[j] in ['А','а','Е','е','Ё','ё','И','и','О','о','У','у',
                    'Ы','ы','Э','э','Ю','ю','Я','я'] then
                  Inc(k);
            If k>=2 then
               Writeln(s1);
         end;
         s1:='';
      end;
   end;
   Readln;
end.