Пример кода на Pascal, который подсчитывает количество строчных русских букв в строке и выводит их в алфавитном порядке: 2

uses crt;var k, i : byte;s : string;abc : set of char;begin  clrscr;  k := 0;  {множество строчных букв русского алфавита}  abc := ['а'..'я', 'ё'];  write('введите строку: ');  readln(s);  for i := 1 to length(s) do    if s[i] in abc then inc(k);  writeln('в строке ', k, ' строчных букв русского алфавита');  repeat until keypressedend.

Также на сайте «Ответы Mail.ru» представлен пример кода в Pascal ABC, который подсчитывает количество содержащихся в строке русских прописных букв и выводит их в алфавитном порядке. 1