)в , ) в заданном предложении подсчитать количество слогов. предложение набрано большими буквами.2) определить сколько в заданном тексте вопросительных предложений.3) в заданном тексте подсчитать количество удвоенных букв.заранее ! : )

А где сам текст? или первое предложение и есть он?

Program test;
var udv,i,vopr,slog:integer;s:string;
begin
readln(s);
slog:=0;
vopr:=0;
udv:=0;
for i:=2 to length(s) do
begin
if s[i] = s[i-1] then udv:=udv+1;
if s[i]='?' then vopr:=vopr+1;
if (s[i]='А') or (s[i]='О') or (s[i]='Э') or (s[i]='И') or (s[i]='У') or (s[i]='Ы') or (s[i]='Е') or (s[i]='Ё') or (s[i]='Ю') or (s[i]='Я') then slog:=slog+1;
end;
writeln('Слогов:',slog);
writeln('Удвоенных букв:',udv);
writeln('Вопросительных предложений: ',vopr);
end.