Напишите программу, которая в последовательности натуральных чисел определяет максимальное четное число.
Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число.
Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число - максимальное четное число.
Пример работы программы:
Входные данные Выходные данные
3 _______________42
10
99
42

Program n1;var i,a,max,n: integer;beginmax:=0;readln(n);if n<1000 then for i:=1 to n do beginreadln(a);if ( a mod 2=0) and (max<a) then max:=a;end;writeln(max);end.