Question

Информатики плиз помогите.Решите задачу через паскаль

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger(ReadlnInteger).Where(t->t mod 4=0).Max)
end.

Пример
10
-8 6 12 0 -8 19 -5 2 12 -40
12