Составляем и заполняем таблицу
a b c c<15?
3 25 1 да
3 25 2 да
3 28 3 да
3 31 4 да
3 34 5 да
3 37 6 да
3 40 7 да
3 43 8 да
3 47 9 да
3 50 10 да
3 53 11 да
3 57 12 да
3 60 13 да
3 63 14 да
3 67 15 нет
конец работы.
Смотрим, что у нас в ячейке b и даем ответ
Ответ: 67
по риснку увиидшь - то что в середине - это объединение и пересечение множеств
2 вида: не могу и не умею
У файла "index" поменяй формат с "txt" на "html" и закинь все вместе в какую-нибудь папку.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqIntegerWhile(t -> t > -1).AdjacentGroup.Where(t -> t[0] = 0)
.Select(t -> t.Count).Max.Println
end.