Вопрос Помогите,пожалуйста с решением на паскале

[FaD3less]

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

Пример работы программы:

Входные данные :4, 3, 20, 6, 8. выходные данные: 6.

 

[1478]

min_even = 30000 # устанавливаем начальное значение как максимально возможное число

for number in sequence:
if number % 2 == 0 and number < min_even: # если число четное и меньше текущего минимального четного
min_even = number

print(min_even) # выводим минимальное четное число

 

[kwazr]

program MinEvenNumber;

var
n, i, number, minEven: integer;

begin
minEven := 30001; // Initialize minEven to a large value
readln; // Read the number of elements in the sequence
for i := 1 to n do
begin
readln(number); // Read each number in the sequence
if (number mod 2 = 0) and (number < minEven) then // Check if the number is even and smaller than the current minEven
minEven := number; // Update minEven if a smaller even number is found
end;
writeln(minEven); // Output the minimum even number found
end. Результат программы ввода и вывода

 

[никита226]

n = int(input(&#34;Введите количество чисел в последовательности: &#34)
sequence = []
for i in range:
num = int(input(&#34;Введите число: &#34)
sequence.append(num)

min_even = 30000
for num in sequence:
if num % 2 == 0 and num &lt; min_even:
min_even = num

print(&#34;Минимальное четное число:&#34;, min_even)

 

[Digga]

садись на мой пайтон, покатаю