Найти значение наимньшего числа, из всех четных введеных чисел, не превышая 30000

var n, i: Integer;       a, min: LongInt; Begin    min := 30000;    readln(n);    for i := 1 to n do begin       read(a);       if (a mod 2=0) and (a < min) then min := a;    end;    writeln(min); End.