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.