Две . написать на pascalabc.net. 1) подсчитать количество слов, в которых встречаются только согласные. 2) вывести на экран все слова, начинающиеся не с цифры.

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
  var s:=ReadlnString('->');
  var a:=RegEx.Matches(s,'\s([бвгджзйклмнпрстфхцчшщ]+)\s',
    RegexOptions.IgnoreCase);
  foreach var w in a do Writeln(w.ToString.Trim);
end.

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
  ReadlnString('->').ToWords.Where(w->Pos(w[1],'0123456789')=0).Println
end.