1 семестр / Лаболаторная 2 / Lab2_2_var12

program Lab2_2_var12;
const 
  letters=['A'..'Z','a'..'z'];  {массив всех латинских букв}
  vowels=['a','e','i','o','u']; {гласные}
var
  Str:string;   {строка}
  count_lett,count_vow,vow,cons,no_lett:integer;
begin
  vow := 0; {обнуляем переменную гласных}
  cons := 0;    {обнуляем переменную согласных}
  no_lett := 0; {обнуляем переменную не латинских букв}
  writeln ('Введите строку -->'); {запрашиваем строку}
  readln (Str);
  for count_lett:=1 to length(Str) do {проверка на пренадлежность}
                                      {к множеству латинских букв}
    begin
        if not(Str[count_lett] in letters) then {если символ строки}
                                                {не принадлежит массиву}
                                                {латинских букв}
          no_lett := no_lett + 1;   {увеличиваем переменную не латинских букв}
    end;
  if no_lett = 0 then {если не латинских букв нет, то запускается проверка}
                  {на пренадлежность к множеству гласных букв}
    begin
        for count_vow := 1 to length(Str) do 
            begin {сравнения символа строки с множеством гласных}
                if Str[count_vow] in vowels then    {если символ строки}
                                            {принадлежит массиву}
                                            {гласных букв}
                  vow := vow + 1    {увеличиваем переменную гласных}
                    else cons := cons +1;{увеличиваем переменную согласных}
            end;
    
        if (vow > cons) then writeln('Гласных больше') {сравнение гласных и согласных букв}
            else if (vow = cons)then writeln('Количество согласных и гласных одинакого')
                else writeln('Согласных больше');
    end
    else writeln ('Введено некорректное значение'); 
                    {если в введенном значении не все буквы принадлежат}
                    {множеству латинских букв, то программа}
                    {попросту завершиться с соответствующим сообщением}
end.