Написать программу в паскаль аbc : напишите программу которая в последовательности натуральных чисел определяет чётное минимальное число. при этом кол-во введённых чисел неизвестно. но не превышает 1000. введённые числа не превышают 30000.в последовательности всегда имеется чётное число. программа должна вывести это одно минимальное чётное число.
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 2 = 0)and(A < Min) then Min:=A;
End;
WriteLn(Min)
End.