ПОМОГИТЕ СРОЧНО ДАЮ 90Б!
Дано N целых чисел.Вывести наибольшее четное.Если четных нет, вывести слово NO.
Во входном потоке в первой строке задано целое число N - количество элементов числовой последовательности (0 < N < 100). Во второй строке через пробел перечислены значения элементов целочисленной последовательности. Значения элементов по модулю не превышают 30000.
В выходной поток вывести единственное целое число или слово 'NO'.

var n,a,max,i:integer;

begin

readln(n);

max:=-30001;

for i:=1 to n do

begin

read(a);

if (a mod 2=0)and(a>max) then max:=a;

end;

if max<>-30001 then writeln(max)

else writeln('No');

end.

Пример:

5

12 65 74 87 64

74