<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger).Where(t->t.IsEven).Max.Println
end.
<u>Пример</u>
6
20 31 -18 0 14 7
20
Одна яхта должна отплыть назад ,после чего вторая пройдёт через устье
Помойму где ... надо написать begin и всё