{* Задача 306 *}

Unit ZADACH306;
Interface
Implementation
Begin
 writeln('Дана строка символов. Подсчитать самую длинную последовательность подряд идущих букв а.');
End.

Program zadach306;

Uses zadach306.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  s   : String;
  a   : integer;
  j   : integer;
  max : integer;
Begin
  clrscr; {* Очищаем экран *}
  a := 0;
  max := 0;
  writeln('Введите строку символов: ');
  readln(s);
  For j := 1 To length(s) Do {* Цикл для j => [1 .. length(s)] *}
  Begin
    If s[j] = 'а' Then
      a := a + 1;
    If s[j + 1]'а' Then
    Begin
      If a > max Then
        max := a;
      a := 0;
    End;
    
  End;
  writeln('В наиболее длинной последовательности идущих');
  writeln('подряд символов "a" содержится ', max, ' символов');
  readln
End.