Помогите даю 20 баллов
Напишите программу, которая в последовательности натуральных чисел определяет минималь-
ное чётное число.
Программа получает на вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется чётное число. Количество чисел не превышает 1000
Введённые числа не превышают 30 0
Программа должна вывести одно число — минимальное чётное число.
Пример работы программы:

Входные данные Выходные данные 8
4
3
20
6
6

Ответ:

Объяснение:

var

   i, min, n, d: integer;

begin

   readln(n);

   min:=30000;

   for i := 1 to n do

   begin

       readln(d);

       if (d mod 2 = 0) and (min>d) then

           min:=d

   end;

   writeln(min);

end.