Напишите программу, которая в массиве из 30 натуральных чисел определяет максимальное четное число.

begin
  var a:=ArrRandom(30,-50,50); a.Println;
  Writeln('Максимальное четное: ',a.Where(x->x.IsEven).Max)
end.


14 34 8 41 -49 -2 22 9 29 -24 40 -35 -18 -47 0 -39 -9 46 38 8 25 -10 -30 32 -14 9 -13 6 9 -2
Максимальное четное: 46