17 Напишите программу, которая удалит из текста все гласные буквы (см. примеры
9.5 и 9.9).​

примени эту программу

{ ñêîëüêî ãäàñíûõ â ïðåäëîæåíèè

}

const

p='все гласеные буквы';

var

s:string; i,n:integer;

begin

writeln('текст: '); n:=0; readln(s);

for i:=1 to length(s) do if pos(s[i],p)<>0 then inc(n);

writeln(n);

readln

end.

Объяснение: