Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число.

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число. Количество чисел не превышает 1000. Введённые числа не превышают 30 000.

Про грамма должна вывести одно число — минимальное чётное число.

Program n1;var a,min,i,k: integer;beginmin:=30000;readln(k);for i:=1 to k dobeginreadln(a);if (a<min) and (a mod 2=0) then min:=a;end;write(min);end.