Описание слайда:
program Mnog;
const
zn=[',','.',':',';','?','!',' '];
glas=['а','е','и','о','у','ю','я','э','ы','ё'];
sog=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
var
St,sl:string;
i:integer;
begin
Writeln('Введите cтроку');
readln(st);
For i:=1 to length(st) do
If not(st[i] in zn) then
sl:=sl+st[i] else
begin
if (sl[1] in glas) and
(sl[length(sl)] in sog) then Writeln(sl);
sl:='';
end;
end.