..........................
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString.ToWords(Arr(',','.'));
var (i,ssg):=(1,'аеёиоуыэюя');
var sg:=['а','е','ё','и','о','у','ы','э','ю','я'];
while i<=a.Length do begin
foreach var c in a[i].ToCharArray do
if c in sg then Exclude(sg,c);
i+=2
end;
for var j:=ssg.Length downto 1 do
if not (ssg[j] in sg) then Delete(ssg,j,1);
ssg.ToCharArray.Println(',')
end.