Паскаль abc.net дан произвольный текст на языке. написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой. ,с комментариями где можно

// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! begin   var pic: ='\b[бвгджзйклмнпрстфхцчшщъь]\s*[аеёиоуыэюя]\b';   readlnstring('введите: ').matchvalues(pic,regexoptions.ignorecase)           .println(newline) end. пример введите: а роза упала на лапу азора, а карл у клары украл кораллы. роза на лапу клары кораллы

Var     text,s: string;     n,k: boolean;     i: integer; begin write('введите текст на языке: '); readln(text); text: =lowercase(text)+' '; // перевоит текст в нижний регистр writeln(text); // показывает действие предыдущей строки for i: = 1 to length(text) do       begin       if ('а' < = text[i])and(text[i] < = 'я')or(text[i] = 'ё') then s: =s+text[i] // записываем буквы в s       else // как только встречаем другой символ, проверяем,             if length(s) > 0 then // есть ли в s хоть одна буква,                   begin // и если есть, то проверяем условие , и выводим слово на экран, если оно истинно                   if (s[1] in 'бвгджзйклмнпрстфхцчшщ')and(s[length(s)] in 'аоэиуыеёюя') then writeln(s);                   s: =''; // далее обнуляем s                   end;       end; end. пример работы программы: введите текст на языке: дан произвольный текст на языке. написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой. дан произвольный текст на языке. написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой. на программу которая слова начинающиеся на согласную заканчивающиеся

ответ:
Все лекго ответ z = 8 x = 10 y = 4
ОбъяснениеЭто