.var a,s,g: string;
i, ks,kg: integer;
begin
writeln('введите сообщение');
readln(a);
s:='цкнгшщзхфвпрлджчсмтбъьЦКНГШЩЗХФВПРЛДЖЧСМТБЬЪ';
g:='уеыаоэяиюУЕЫАОЭЯИ';
for i:=1 to length(a) do
if pos(a[i],s)<>0 then
ks:=ks+1 else
if pos(a[i],g)<>0 then
kg:=kg+1;
if ks>kg then writeln ('успех') else
if kg>ks then writeln ('провал') else
writeln ('отложено');
end.как ты?

Question