примени эту программу
{ ñêîëüêî ãäàñíûõ â ïðåäëîæåíèè
}
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.
Объяснение:
