Дана строка, состоящая из слов, разделенных пробелом. определить слово, с наибольшим количеством гласных букв, паскаль

Var   s,w: string;   i,j,n,p,k,gmax: integer;   fbreak: boolean; { флажок для прерывания циклов } begin   writeln('введите текст, разделяя слова пробелами');   readln(s);   s: =lowercase(s);   n: =length(s); p: =1; fbreak: =false; gmax: =0;   while (not fbreak) do { перебор всех символов в строке }   begin       {ищем первый непробельный символ - начало слова }       fbreak: =false;       while ((p< =n) and (not fbreak)) do           if (p=n) or (s[p]< > ' ') then fbreak: =true           else inc(p);       { ищем первый пробельный символ - конец слова }       if p< n then begin           i: =p; inc(p); fbreak: =false;           while (p< =n) and (not fbreak) do begin               if (p=n) or (s[p]=' ') then fbreak: =true               else inc(p)           end;           { теперь слово находится между позициями i и p }           k: =0;           for j: =i to p do               if s[j] in ['а','е','ё','и','о','у','ы','э','ю','я'] then inc(k);           if gmax< k then begin gmax: =k; w: =copy(s,i,p-i) end;           i: =p; p: =p+1       end       else p: =p+1;       fbreak: =(p> n)   end;   if gmax> 0 then writeln('в слове "',w,'" максимум гласных, равный ',gmax)   else writeln('во введенной строке гласных букв не найдено') end. тестовое решение: введите текст, разделяя слова пробелами в слове три буквы е подряд! в слове "" максимум гласных, равный 5

Include< iostream> int main() { int a; cin> > a; std: : cout< < a/100+a%100/10+a%10; }