Вывести ** экран все русские согласные буквы строки в алфавитном порядке. В паскале

Question

Вывести на экран все русские согласные буквы строки в алфавитном порядке. В паскале

Answer 1

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var sogl:='бвгджзйклмнпрстфхцчшщ';
  var s:=readlnString('>').ToLower;
  s.Where(c->Pos(c,sogl)>0).Distinct.Sorted.Println;
end.

Пример
> А роЗА УПалА На АПУ аЗора
злнпр