Ну если все с самого начала то: взять нож, ведро, одеться и идти за грибами; зайти в лес; найти гриб; нагнуться; срезать гриб; разогнуться; положить гриб в ведро; повторением действий 3-5 насобирать ведро грибов; пойти домой.
var s:string;
i,n,max:byte;
begin
n:=0;i:=1;max:=0;
write('Введите s -> ');readln(s);
while i<=length(s) do begin
if (i=1) or (s[i]=' ') then begin
if i <> 1 then inc(i);
if (i<=length(s))and((s[i]='a') or (s[i]='A')) then
while i<=length(s) do
if s[i]<>' ' then begin
inc(n);
inc(i);
end else break;
end;
inc(i);
if max<n then max:=n;
n:=0;
end;
write('Длина самаго длинного слова на букву A = ',max);
end.
11 - 2 = 9
9 - 2 = 7
7 - 2 = 5
5 * 3 = 15
15 - 2 = 13
Команды в таком порядке: 11121
Сам пищащие бандуорорплорлопрпвиппарр
Ославлял читай
Оораоаоадпдеь
Ллпорьптььпьа
Лалаталетп
Спасибо