Program Min_Gl;
 Const
 Nmax= 20; { Максимальное количество счетчиков гласных }
Var
 Predl,Gl:String; { Предложение и эталонная строка }
 Kol:Array[1..Nmax] Of Integer; { Счетчики гласных }
 n,m,i,j,Min,Nom:Integer; { Вспомогательные переменные }
Begin
 Gl:=’аеёиоуыэюяАЕЁИОУЫЭЮЯ’; {Строка гласных (эталонов)}
 m:=Length(Gl);
 WriteLn('Введите предложение');
 ReadLn(Predl);
 n := Length(Predl);
 For j:=1 to m do
  Begin
    Kol[j] := 0;
    For i:=1 to n do
    If Predl[i] = Gl[j] then
    Kol[j]:=kol[j] + 1;
  End;
 Min:=MaxInt;
 Nom:=0;
 For j:=1 to m do
 If kol[j]>0 then
   If kol[j]< Min then
      Begin
        Min:= kol[j];
        Nom:=j;
      End;
 Writeln('Наиболее редкая гласная в предложении -', Gl[Nom]);
 Writeln('Она встречается ',Min,' раз');
 Writeln('Работа окончена. Нажмите клавишу ENTER');
 Readln;
End.

---