Отправлено: 18.10.21 23:58. Заголовок: Задание 17 номер 201, не сходится ответ

{
201) (П. Финкель) В файле 17-199.txt содержится последовательность
целых чисел, которые принимают значения от -10000 до 10000 включительно.
Тройка идущих подряд чисел последовательности называется уникальной,
если только второе из них является положительным трёхзначным нечётным числом.
Определите количество уникальных троек чисел,
а затем – максимальную из всех сумм таких троек.
}
##
//{
Assign(input, '17-199.txt');
var a := ReadInteger;
var b := ReadInteger;
var maxi := -100000;
var count := 0;
while not eof() do
begin
var c := ReadInteger;
if (b > 0) and b.IsOdd and b.Between(100, 999) then
begin
count+=1;
var sum := a + b + c;
maxi := max(maxi, sum);
end;
(a, b) := (b, c);
end;
count.print;
maxi.println;
//}

//{
begin
var D:= ReadLines('17-199.txt').Select(t -> t.ToInteger).ToArray;
var Trio:=
D.NWise(3).
Select(ar->ar.ToArray)
.Where(ar->(ar[1] >0) and (ar[1] mod 2 = 1) and (ar[1] in [100..999]));
Trio.Count.Print;
Trio.Select(ar->ar[0]+ar[1]+ar[2]).Max.println;
end;
//}

На сайте ответ: 94 18841
Моя программа: 100 18841 (2-мя способами)?

 Отправлено: 19.10.21 07:00. Заголовок: если только второе и..

если только второе из них
проверяйте что первое и третье не подходит

 Отправлено: 19.10.21 12:26. Заголовок: "если только второе из них"

Вся соль в этой фразе. Спасибо! Все получилось.