Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется чётное число. количество чисел не превышает 1000. введённые числа не превышают 30 000. про грамма должна вывести одно число — минимальное чётное число.
var a,min,i,k: integer;
begin
min:=30000;
readln(k);
for i:=1 to k do
begin
readln(a);
if (a<min) and (a mod 2=0) then min:=a;
end;
write(min);
end.