{* Cколько слогов содержит самое длинное слово *}

Unit HISKSLOG;
Interface
Implementation
Begin
 writeln('В предложени подсчитать, сколько слогов содержит самое длинное слово ');
End.

Program hiskslog;

Uses hiskslog.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Константы *}
  maxsl = 100;
  glz = 'аАеЕиИоОуУэЭюЮяЯы';
Var {* В работе нам потребуются переменные: *}
  smax : String;
  s    : String;
  sa   : Array[1..maxsl] Of String;
  i    : byte;
  max  : byte;
  slg  : byte;
Begin
  readln(s);
  s := s + ' ';
  While length(s)  0 Do
  Begin
    i := i + 1;
    sa[i] := copy(s, 1, pos(' ', s));
    delete(s, 1, pos(' ', s));
  End;
  For i := 1 To maxsl Do {* Переменная i увеличивается с 1 до maxsl *}
  Begin
    If length(sa[i]) > max Then
    Begin
      max := length(sa[i]);
      smax := sa[i];
    End;
    
  End;
  For i := 1 To length(smax) Do {* Цикл для i => [1 .. length(smax)] *}
    If pos(smax[i], glz)0 Then
      slg := slg + 1;
  writeln(slg);
  readkey; {* Ждем нажатия пользователя *}
End.