begin
  var data := ReadArrInteger(5);
  if (data.Count(x -> ((x mod 2) = 0)) >= 2) and
     (data.Count(x -> ((x mod 2) <> 0)) >= 2) and
     (data.Count(x -> (x < 0)) <= 3)
     then
       write(data.Min)
     else
       write(data.Max);

end.