Информатики плиз Пожалуйста посчитайте.Пожалуйста посчитайте задачу через паскаль

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


10
-8 6 12 0 -8 19 -5 2 12 -40
12

1. А var где