Помогите
Вводится последовательность из N положительных целых чисел. Найтинаименьшее число среди чётных элементов последовательности.
n=1-100
Lazarus

var n,min,a:integer;beginreadln(n);min:=30000;for n:=n downto 1 do beginread(a);if (not odd(a)) and (a<min) then min:=a;end;writeln(min);end.