Вот задача 5
uses crt;
var kg,ks,i,n:byte;
text:string;
sl:set of char;
gl:set of char;
begin
clrscr;
sl:=['q','w','r','t','y','p','s','d','f','g','h','j','k ','l','z','x','c','v','b','n','m'] ;
gl:=['e','u','i','o','a'];
writeln('ВВЕДИТЕ ИСХОДНЫЙ ТЕКСТ ');read(text);
n:=length(text);
for i:=1 to n do begin
if text[i] in sl then ks:=ks+1;
if text[i] in gl then kg:=kg+1;
end;
writeln('в тексте ',kg,' гласных');
writeln('в тексте ',ks,' согласных');
if kg>ks then write('больше гласных')
else write ('больше согласных');
end.
Объясните условие задачи 6. Что нужно напечатать?