напишите программу пожалуйста​

Ответ:

(см. объяснение)

Объяснение:

Если гнаться за решением в одну строчку кода, то можно написать что-то такое (условие задачи это позволяет):

##

ReadArrInteger(ReadInteger).Where(x->x mod 4 = 0).Min.Print;

Но, если забыть об этом, то можно сделать что-то такое:

##

var mn := 301;

for var i:= 1 to ReadInteger do

begin

 var c:= ReadInteger;

 if ((c mod 4 = 0) and (c < mn))

   then mn:= c;

end;

print(mn);

Код приведен на PascalABC.NET.

Задание выполнено!