// PascalABC.NET 3.3
begin
var s:=ReadlnString;
var gl:=['А','а','Е','е','Ё','ё','И','и','О','о',',У','у',',Ы','ы','Э','э','Ю','ю',',Я','я'];
var a:=s.ToWords.Where(w->w.Where(c->(c in gl)).Count>0);
s:=a.JoinIntoString(' ');
s.Println;
end.
Пример:
Пример клмн проба прст фхцчшщ всё
Пример проба всё