Программа: Множества (set of char). Пример 1.

---

Задача.

Подсчитать количество гласных и согласных букв в строке.

Программа 
г=[¦]======================= SENT2008\MNOJESTV.PAS ========
¦Program Mnojestv;
¦var glas,soglas: set of char; st: string;
¦    ii,len,glas1,soglas1 : byte;
¦begin
¦  glas:= ['а','е','ё','и','о','у','э','ю','я'];
¦  soglas := ['б'..'д','ж','з','к'..'н','п'..'т','ф'..'щ'];
¦  write('Введи строку --> '); readln(st);
¦  len := length (st); glas1:=0; soglas1:=0;
¦    for ii:= 1 to len do
¦      begin
¦        if st[ii] in glas then inc(glas1);
¦        if st[ii] in soglas then inc(soglas1);
¦      end;
¦   writeln('Гласных: ',glas1);
¦   writeln('Согласных: ',soglas1);
¦end.
---- Результаты работы -----
Введи строку --> Тип является структурированным,
 если одному идентификатору (переменной или константе)
 соответствует структура
Гласных: 39
Согласных: 54