Var n, i: Integer;
<span> a, min: LongInt;
</span>Begin
<span> min := 30000;
</span><span> readln(n);
</span><span> for i := 1 to n do begin
</span><span> read(a);
</span><span> if (a mod 2=0) and (a < min) then min := a;
</span><span> end;
</span><span> writeln(min);
</span><span>End.</span>
Не (число<10) = (число >=10) по правилу Моргана. Получается логическая конъюнкция, где оба условия должны быть истинны.
(число >=10) И (число НЕЧЁТНОЕ)
1 3 2
1 - 2 - 3
23: 1 - 1 - 1
13: 1 - 1 - 1
9: 0 - 1 - 0
6: 0 - 0 - 0
5120 байт
получилось именно так