program string_10;
var s,max,p:string;
i,m,k:integer;
begin write('введите текст:');
readln(s);
s:=s+'.';
max:='';
p:='';
i:=1;
m:=0;
k:=0;
repeat if s[i]='a'
then begin p:=p+s[i];
k:=k+1;
end
else if k>m then begin max:=p;
m:=k;
k:=0;
p:='';
end;
i:=i+1
until s[i]='.';
writeln('длина наибольшей последовательности  =',m);
readln;
end.